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100 OPTION BASE 1 350 FOR TEMPOB=1 TO 2 

110 DIM N(295) 360 CALL SOUND (200, 220, VOL) 

120 FOR I=1 TO 295 370 CALL SOUND (200, 248, VOL) 

130 READ A 380 CALL SOUND (400, 278, VOL) 

150 NEXT I 400 VOL=4 

160 VOL=2 410 NEXT TEMPOB 

170 GOSUB 880 420 VOL=2 74 

180 GOSUB 1020 430 GO0SUB 1460 | RED 

190 VOL=5 440 VOL=5 » 

200 GOSUB 880 450 GOSUB 1460 | 

210 GOSUB 1020 460 VOL=2 i 

220 VOL=2 470 GOSUB 1520 

230 FOR TEMPOA=1 TO 2° 489 VOL=1 | 

240 GOSUB 1080 490 GOSUB 

250 VOL=5 

260 GOSUB 1080 

270 VOL=2 

280 GOSUB 1170 

290 VOL=5 

300 GOSUB 1170 

310 VOL=2 

320 GOSUB 880 

‘330 GOSUB 1260 

340 NEXT TEMPOA 

870 REM AARAAAAAARARAAAAARAA 

880 FOR I=1 TO 4 510 GOSUB 1710 

890 CALL SOUND(100,N(I),VOL) 520 FOR FINALE=1 TO 2 

900 NEXT I 530 VOL=1 

910 CALL SOUND(400, 262, VOL) 540 CALL SOUND(300,554, VOL) 
920 FOR I=5 T0 8 550 CALL SOUND(100,554, VOL) 
930 CALL SOUND(100,N(I),VOL) 560 GOSUB 1830 

940 NEXT I 570 GOSUB 1910 

950 CALL SOUND (400,330, VOL) 580 CALL SOUND (600,494, VOL) 
960 FOR I=9 TO 20 590 CALL SOUND(200,554, VOL) 
970 CALL SOUND(100,N(I),VOL) 600 GOSUB 1830 

980 NEXT I 610 CALL SOUND(25,588, VOL) 
990 CALL SOUND (400,523, VOL) 520 CALL SOUND(775,330, VOL, 440, VOL, 554, VOL) 
1000 RETURN 630 FOR TR=1 TO 4 

1010 REM AAAAAAARA22222222222 640 CALL SOUND (25,584, VOL) 
1020 FOR I=21 TO 48 STEP 2 650 CALL SOUND (175,494, VOL) 
1030 CALL SOUND (200, NCI), VOL,N(I+1), VOL) 660 NEXT TR 

1040 NEXT I 570 CALL SOUND (300,440, VOL) 
1050 CALL SOUND(400,330, VOL) 680 VOL=4 

1060 RETURN 690 CALL SOUND(50,330, VOL) 
1070 REM BBBBBBBBEBBBBBBBBB 700 CALL SOUND (50,440, VOL) 
1080 FOR I=49 TO 56 STEP 2 710 NEXT FINALE 

1090 CALL SOUND(200,N(I),VOL,N(I+1),VOL) 720 VOL=0 

1100 NEXT I 730 FOR FINALA=1 TO 2 

1110 FOR I=57 TO 60 740 CALL SOUND(600, 278, VOL, 440, VOL) 
1120 CALL SOUND(100,N(I), VOL) 750 CALL SOUND (200,554, VOL) 
1130 NEXT I 760 CALL SOUND (600, 278, VOL, 330, VOL, 440, VOL) 
1140 CALL SOUND(400, 248, VOL, 294, VOL) 770 CALL SOUND (200,554, VOL) 
1150 RETURN 780 NEXT FINALA 

1160 REM BBBBBBBBB333333333 790 FOR FINALB=1 TO 2 

1170 FOR I=61 TO 68 STEP 2 800 CALL SOUND(200, 278, VOL, 330, VOL, 440, VOL) 
1180 CALL SOUND(200,NCI), VOL, N(I+1) , VOL) 810 CALL SOUND (200,554, VOL) 
1190 NEXT I 820 NEXT FINALB 

1200 FOR I=69 TO 72 830 FOR FINALC=1 TO 3 

1210 CALL SOUND(100,N(I),VOL) 840 CALL SOUND(400, 278, VOL, 330, VOL, 440, VOL) 
1220 NEXT I 850 NEXT FINALC 

1230 CALL SOUND (400, 208, VOL, 247, VOL) 860 GOTO 860 


1600 NEXT I 1240 RETURN 


1610 CALL SOUND(400,220, VOL) i pai Rea iaia 
1620 FOR I=112 TO 143 2 = 2 
1630 CALL SOUND(100,N(I),VOL) iu ira RENE 
1640 NEXT I 
1650 FOR I=220 TO 247 iL =vcg apeef ANI ade ra ina 
1660 CALL SOUND(100,N(I),VOL) EA INR 
tuo i sua 370, VOL) 1320 NEXT I i i 

, , 
1590 RETURN 00 DE FARO VOLI 
1700 REM FFFFFFFFFFFFFFFFF 2a 
1710 FOR I=248 TO 279 STEP 2 LL fund La ae 
1720 CALL SOUND(200,NCI) 3 x 
1730 NEXT I 20 MOL NATALI 400) 1370 CALL SOUND(200,N(1), VOL) 


13580 NEXT I 


1740 FOR I=2 
48 TO 267 STEP 2 1390 CALL SOUND (400,278, VOL) 


1750 CALL SOUND(200,N(I),VOL,N(I+1),VOL) 


1760 NEXT I 1400 FOR I=102 TO 111 

1770 FOR I=280 TO 287 STEP 2 1410 CALL SOUND(200,N(1),VOL) 

1780 CALL SOUND(200,NC1),VOL,N(I+1),VOL) e NATI 

1790 NEXT I 1430 CALL SOUND (400,220, VOL) 
0 2 1440 RETURN 

a10 Fia i ae 1450 REM EEEEEEEEEEEEEEEEEE 

1820 REM 666GGGGGGGEGGGGGGG 1460 FOR I=112 TO 171 


1830 CALL SOUND (800,330, VOL, 440, voL,554, vo.) 1479 CALL SOUND(100,NCI), VOL) 


% 4 > 1480 NEXT I 
15) AI 1490 CALL SOUND(400, 278, VOL) 
1860 CALL SOUND(100,N(I),VOL) 1500 RETURN 
1870 NEXT I dl Do ,EFErerE00922200309 
1880 CALL S È 52 =172 
4 CALL SOUND(800, 370, VOL, 440, VOL, 588, VOL) (530 CALL SDNNTIGO NI) VI 
1900 REM 66GGGG662222222222 1540 NEXT I 
1910 FOR TR=1 TO 8 1550 FOR I=188 TO 199 
1920 CALL SOUND (25,588, VOL) 1560 CALL SOUND(100,N(I),VOL) 
1930 CALL SOUND(75,554, VOL) 1570 NEXT I 
1940 NEXT TR 1580 FOR I=204 TO 219 
1950 RETURN 1590 CALL SOUND(100,N(I),VOL) 


19560 REM LRZEAZZEZZEZEZZA ZZZ ZZARAEZZZ ZA ZZAZZ ZZZ AAA RE LI 

1970 DATA 247,220, 208,220, 294, 262, 248, 262, 350,330, 312,330, 494, 440, 416,440, 494,44 
0,416,440 

1980 DATA 440,440, 525,524, 392,494, 350, 440, 330, 392, 350, 440, 392, 494, 350,440, 330, 39 
2,350,440 

1990 DATA 392,494,370,440,330,392,312,370 

2000 DATA 262,330, 294, 350, 330, 392, 330, 392,440, 392, 350, 330, 220, 262, 248, 294, 262, 33 
0, 262,330, 350,330, 294, 262 

2010 DATA 440,494,524,494,440,416,440,330,349, 294, 248, 262, 248, 220, 248 

2020 DATA 220, 248, 278, 248, 220, 208, 185, 208, 220, 248, 208, 165, 220, 248, 220, 248, 278, 24 
8, 220, 208, 195, 248, 208, 165 

2030 DATA 554,589,554,494,440,494,440,416,370,440,416,370,350,370,416,350, 278,31 
2,350, 278,370, 350,370, 416 

2040 DATA 440,416,440,494,554,524,554,524,554,599,554,494,440,494,440,416 

2050 DATA 370,440,416,370,330,370,416,330, 277,312, 330, 278, 312,330, 370,312, 262, 27 
8,312, 262 

2060 DATA 330,294, 278,248, 220, 248, 278, 294,330, 370,416, 440,440, 416,370,330, 330, 29 
4,278, 248, 220, 248, 278, 294 

2070 DATA 330,370,416,440, 466, 466,494, 494,440,416,370,330 

2080 DATA 330,294, 278, 248, 278,330, 220, 278, 248, 294, 208, 248 

2090 DATA 554,466,370,550, 588,554, 588, 554, 599, 554, 599, 554, 598, 554, 494,440 

2100 DATA 416,440,494,416,440,494,554, 440, 350, 370,416, 350 

2110 DATA 220,440, 248,494, 278,554, 278, 554, 220, 440, 248, 494, 278, 554 

2120 DATA 248,494, 220,440, 208,416, 185,370, 208, 416, 220, 440, 248, 494, 208,416, 165,33 
0 

2130 DATA 185,370, 248, 494, 208,416, 165,322, 599,554, 494,554, 598, 554, 494, 558 

2140 END 





WORD PROCESSOR 


100 
110 
120 
150 
140 
150 
151 


REM 


WORDPROCESSOR 


REM FRANCOMPUTER CLUB 


REM 


CALL CLEAR 


INPUT “COLORE LETTERE ? "32 
IF (Z<=0)+(Z>16)THEN 140 
INPUT "COLORE SCHERMO ? ":Y 
IF (Y<=0)+(Y>16)THEN 151 


PRINT TAB(9); "attendere" 


REM CUSTOM CHAR SET 


152 

160 CALL CLEAR 

170 

180 REM 

190 
200 DATA 00101010001 530 DATA 
210 DATA 002828 540 DATA 
220 DATA 00287C287C28 SS0O DATA 
230 DATA 00382070207C 560 DATA 
240 DATA 006468102C4C 570 DATA 
250 DATA ‘00205020545824 580 DATA 
260 DATA 00101 590 DATA 
270 DATA 000810101008 600 DATA 
280 DATA 00201010102 610 DATA 
290 DATA 002828 620 DATA 
300 DATA 0010107C101 630 DATA 
310 DATA 0000000060204 640 DATA 
320 DATA 0000007C 650 DATA 
330 DATA 00000000606 660 DATA 
340 DATA 0000000060204 570 DATA 
350 DATA 00384C546438 680 DATA 
360 DATA 0010301010358 690 DATA 
370 DATA 00384408107C 700 DATA 
380 DATA 003844184438 710 DATA 
390 DATA 000818287C08 720 DATA 
400 DATA 007C403C047C 730 DATA 
410 DATA 001020784438 740 DATA 
420 DATA 007C0810202 750 DATA 
430 DATA 003844384438 760 DATA 
440 DATA 00384435C0B1 770 DATA 
450 DATA 003035000303 780 DATA 
460 DATA 0030300030302 790 DATA 
470 DATA 000204080402 800 DATA 
480 DATA 00007C007C 810 DATA 
490 DATA 00201008102 820 DATA 
500 DATA 00384418001 830 DATA 
510 DATA 00384C4C4038 840 DATA 
520 DATA 003844447C44 850 DATA 
1160 PRINT " WORDPROCESSOR"::::: 
1170 PRINT " BY FRANCOMPUTER CLUB" 
1180 PRINT " VICENZA 
1190 PRINT s:::r:se: 
1200 GOSUB 5140 


1210 CALL HCHAR(1,1,30,32) 
1220 CALL VCHAR(2,2,30,22) 
1230 CALL VCHAR(2,32,30,22) 
1240 CALL HCHAR(24,1,30,32) 


1250 GOSUB 5040 
1260 CALL CLEAR 


1270 PRINT "BATTERE UN TASTO,GRAZIE" 


1280 CALL KEY(0,K,S) 


007844784478 
003C4040403C 
007844444478 860 DATA 00003C40403C 
007C4078407C 870 DATA 00043C44443C 
007C4078404 880 DATA 00003844784038 
003C44404C3C 890 DATA 00384070404 
0044447C4444 900 DATA 00003844443C0478 
003810101038 910 DATA 004078444444 
000404044438 920 DATA 00100010101 
004448704844 9350 DATA 0004000404044438 
00404040407C 940 DATA 004048704844 
00446C544444 950 DATA 00301010101 
004464544C44 960 DATA 000068545454 
007C4444447C 970 DATA 000078444444 
00784444784 980 DATA 000038444438 
003844444C35C 990 DATA 000078444478404 
00784478504C 1000 DATA 00003C44443C0404 
003C40380478 1010 DATA 00005864404 
007C1010101 1020 DATA 00003840380438 
0044444444358 1030 DATA 002070202038 
00444444281 1040 DATA 00004444443C 
004454545428 1050 DATA 00004444281 
004428102844 1060 DATA 000044545428 
00442810101 1070 DATA 000044283844 
007C0810207C 1080 DATA 00004444443C047C 
001810101018 1090 DATA 00007C08107C 
004020100804 1100 FOR K=33 TO 122 
00301010103 1110 READ C$ 
00102844 1120 CALL CHAR(K,C$) 
00000000007C 1130 NEXT K 
001008 1140 CALL CLEAR 
00003844443C 1150 GOSUB 5090 
004078444478 

1290 IF S=0 THEN 1280 

13500 IF K<>52 THEN 1320 

1310 TT=1 

1320 DIM A$(100) 

13350 REM - MASTER MENU 

13540 CALL CLEAR 

1350 GOSUB 5090 

1360 PRINT " £££ MENU £££":: 

13570 PRINT TAB(5); "O. SCRIVE TESTO" 

13580 PRINT TAB(5);"1. VISUALIZZA” 

1390 PRINT TAB(5);"2. SCRIVE SU STAMPANTE" 

1400 PRINT TAB(5);"3. CANCELLA LINEA" 

1410 PRINT TAB(5);"4. INSERISCE LINEAR" 


1420 PRINT TAB(5); "5. RIPRENDE LINEA" iaù 
1430 PRINT TAB(5);"6. RIPRENDE PAROLA" pia 
1440 PRINT TAB(5);"7. SALVA SU NASTRO" np 
1450 PRINT TAB(5);"8. LEGGE DA NASTRO" patata 
1460 PRINT TAB(5);"9. NUOVO TESTO" 176 
1470 PRINT TAB(5);"?. ISTRUZIONI":: va 
1480 PRINT TAB(8); "TASTO ?" dova 
1490 GOSUB 5050 iaia 
1500 GOSUB 5140 sn0ù 
1510 CALL KEY(0,K,S) iso 
1520 IF S=0 THEN 1510 30 
1530 CALL CLEAR pipi 
1540 A=K-48 1850 
1550 IF K=48 THEN 2080 1860 
1560 IF K=49 THEN 4110 1870 
1570 IF K=50 THEN 2560 1880 
1580 IF (K<54)#*(K>50)THEN 1880 1890 
1590 IF K=54 THEN 3480 1900 
1600 IF K=55 THEN 3940 1910 
1610 IF K=56 THEN 4020 1920 
1620 IF K=57 THEN 1810 19350 
1630 IF K=63 THEN 4790 1940 
1640 GOTO 1330 1950 
1650 GOSUB 5090 1960 
1660 PRINT "SCEGLI IL SET DI CARATTERI"::;: 1970 
1670 GOSUB 5050 1980 
1680 PRINT TAB(6);"1.PRINTER SET (GRANDE) " 1790 
1690 PRINT TAB(6);"2.CUSTOM SET(PICCOLO)"::: PT 
1700 PRINT "E” ACCESA LA TUA STAMPANTE ?"::: “0 
1710 GOSUB 5140 sia 
1720 CALL KEY(0,KEY,S) Lee 
1730 IF S<1 THEN 1720 2040 

2050 TEMP=L 

2060 L=B 

2070 GOTO 2400 

2080 GOSUB 5090 

2090 PRINT "PAGINA PRONTA PER TESTO 

2100 IF TT=1 THEN 2110 ELSE 2120 

2110 PRINT "*=MAIUSCOLE" 

2120 PRINT "DIVISO=(/)VIRGOLA 

IRA >=CAPOVERSO" 

2140 PRINT "BB=LINEA VUOTA"::: 

2150 PRINT “PER FINIRE BATTERE""ZZ"""::::: 

2160 GOSUB 5140 

2170 GOSUB 5050 

2180 PRINT L+1 

2190 IF L+1<>52 THEN 2210 

2200 CALL SOUND(1000,440,2,444,2,448,2) 

2210 INPUT A$(L+1) 

2220 LC=LEN(A$(L+1)) 

2230 LL=LC 

2240 IF LC>28 THEN 2250 ELSE 2300 

2250 FOR I=LL TO 1 STEP -1 

2260 IF SEG$(A$(L+1),1,1)<>CHR$(94)THEN 2280 

2270 LC=LC-1 

2280 NEXT I 

2290 IF LC>28 THEN 2360 

2300 IF LEN(A$(+1))<1 THEN 2180 

2310 IF SEG$(A$(L+1),1,2)="ZZ" THEN 1340 

2320 IF SEG$(A$(L+1),1,2)<>"BB" THEN 2340 

2330 A$(L+1)=" " 


IF KEY=77 THEN 1340 

IF (KEY<49)+(KEY>50)THEN 1850 

IF KEY<>49 THEN 1790 

SET$="TP.E" 

IF K=49 THEN 4130 ELSE 2580 
SET$="TF.U.E" 

IF k=49 THEN 4130 ELSE 2586 

FOR I=1 TOL 

A$(I)="" 

NEXT I 

L=0 

PRINT "FILE NOW BLANK" 

GOSUB 5040 

GOTO 1340 

INPUT "NUMERO LINEA ?":B 

IF (B<1)+(B>L)=-1 THEN 1900 ELSE 1930 
PRINT "LINEA INESISTENTE" 

GOSUB 5040 

GOTO 1330 

PRINT "OLD LINEA £";B 

PRINT A$(B) 

FOR PSE=1 TO 250 

NEXT PSE 

ON A GOTO 1340, 1340, 3270,3350, 1980 
FRINT “ENTER LINEA NUOVA: " 

INPUT A$(E) 

IF SEG$(A$(B),1,2)<>}"BB" THEN 2030 
A$(B)=" " 

GOTO 1330 

IF LEN(A$(E))>28 THEN 2230 ELSE 133 
REM -ENTER TEXT 


PARTO CON LA LINEA ";L+t1 


PER=(*) VIRGOLETTE 





DOLLARO= ($)L 


PRINT “"BATTI UN TASTO PER IL MENU" 
CALL KEY(0,K,5) 

IF S=0 THEN 5000 

GOTO 1330 

CALL SOUND (4000, 10000, 30) 
CALL SOUND(4000, 10000, 30) 
FOR BEEP=1 TO 3 

CALL SOUND(50,1000,1) 
NEXT BEEP 

RETURN 

FOR DIS=1 TO 12 

CALL SCREEN(Y) 

CALL COLOR(DIS,Y,Y) 

NEXT DIS 

RETURN 

FOR APP=1 TO 12 

CALL COLOR(APP,Z,Y) 

NEXT APP 

RETURN 

END 


4990 
5000 
S010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
9090 
5100 
S110 
5120 
51350 
35140 
5150 
5160 
5170 
5180 


2340 L=L+1 
2350 GOTO 2180 

2360 REM -SHORTEN LONG LINE 

2370 REM BELL 

2380 CALL SOUND(100,-5,1) 

2390 L=L+1 

2400 PRINT "LINEA TROPPO LUNGA-RIDUCO COME SEGUE: " 
2410 FOR I=28 TO 1 STEP -1 

2420 IF SEG$(A$(L),I,1)=" " THEN 2470 

2430 NEXT I 

2440 A$(L)="" 

2450 L=L-1 

2460 GOTO 2480 

2470 A$(L)=SEG$(A$(L),1,I-1) 

2480 PRINT A$(L) 

2490 IF (TEMP=B)#(TEMP<>0)THEN 2500 ELSE 2510 
2500 L=TEMP 

2510 IF A$(L+1)="" THEN 2180 

2520 IF (L>TEMF)*(TEMP=0)THEN 1340 

2530 L=TEMP 

2540 GOTO 2210 

2550 REM --PRINT TEXT 

2560 C=0 

2570 GOTO 1650 

2580 GOSUB 5050 


2590 PRINT TAB(5); "PRONTO A SCRIVERE SCEGLI IL FORMATO: " 
2600 PRINT "O = NUMERATO 1 = SINGOLO SFAZIO 2 = DOPPIO S 
PAZIO" 


2610 CALL KEY(0,kK,5) 
2620 IF S=0 THEN 2610 

2530 CALL CLEAR 

2640 IF K=77 THEN 1330 

2650 B=kK-48 

2660 IF (K<48)+(K>52)THEN 2590 

2670 IF (B<0)+(B>2)THEN 2560 

2680 OPEN £1:SET$, OUTPUT 

2690 FOR I=1 TOL 

2700 P$=A$(I) 

2710 IF B<%0 THEN 2730 

2720 PRINT £1i:1; 

2730 IF LEN(P$)=0 THEN 3120 

2740 PRINT £15TAB(3);""; 

2750 FOR K=1 TO LENtP$) 

2760 P=ASC(SEG$(P$,K,1)) 

2770 REM -- CONVERT UNSHIFTED LETTERS TO LOWER CASE 
2780 IF (P>*64)*(P<91)THEN 2790 ELSE 2810 

2790 P=P+32 

2800 GOTO 3000 

2810 REM -- CONVERT SHIFTED LETTERS TO UPPER CASE 
2820 IF (P>96)#(P<123)THEN 2830 ELSE 2850 

2830 P=P-32 

2840 GOTO 3000 


2850 REM -- CONVERT SLASH(/) TO COMMA(,) - * TO " AND > TO INDENT 
2860 IF P<>47 THEN 2890 
2870 P=44 


2880 GOTO 3000 

2890 IF P<>42 THEN 2920 

2900 P=34 

2910 GOTO 3000 

2920 IF P<>652 THEN 2950 

2930 GOSUB 3160 

2940 GOTO 3000 

2950 IF P=94 THEN 2960 ELSE 2980 
2960 GOSUB 3200 

2970 GOTO 3000 


2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
33350 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 


IF P<>95 THEN 3000 ELSE 2990 
GOSUB 3230 
PRINT £1:CHR$(P)5 
REM - TEXT FOR BLANK LINE (BB) 
IF (P=66)#*(LEN(P$)=2)THEN 3070 
NEXT K 
IF B<>2 THEN 3070 
PRINT £1 
C=C+1 
PRINT £1 
C=C+1 
CALL KEY(0,K,5) 
IF S=0 THEN 3120 
GOTO 3130 
NEXT I 
CLOSE £1 
CALL SOUND(50,262,0,524,0) 
GOTO 1330 
PRINT £1:TAB(4); 
PRINT TAB(1); 
P=32 
RETURN 
=ASC(SEG$(P$,K#1,1)) 
K=K+1 
RETURN 
PRINT £1:TAB(15); 
P=32 
RETURN 
REM -- DELETE LINE 
L=L-1 
FOR I=B TOL 
A$(I)=A$(I+1) 
NEXT I 
A$(L+1)="" 
GOTO 1340 
REM 
REM 
L=L+1 
FOR I=L TO B+1 STEP -i 
A$(I)=A$(I-1) 
NEXT I 
PRINT "ENTER NUOVA LINEA": 
GOSUB 5050 
A$(B)="" 
INPUT A$(B) 


-- INSERT LINE 


IF SEG$(A$(B),1,2)<>"BB" THEN 3450 


A$(B)=" " 

GOTO 1540 

REM 

REM -- REPLACE WORD 


3480 
3490 
3500 
3510 

920 
3550 
3540 


3930 


3560 
3570 
3580 
3590 
3600 
3610 
3620 
3650 
3640 
35650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3750 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 


INPUT "PAROLA DA CAMBIARE: ":R$ 
R$= “” n &R$& u" " 

D=LEN(R$) 

IF D>2 THEN 3560 

PRINT "ERRORE" 

FOR PSE=1 TO 250 

NEXT PSE 

GOTO 3480 

N=0 

INPUT "NUOVA FAROLA?":N$ 

INPUT "DALLA LINEA (O0=TUTTE)?":B 
IF B:=L THEN 3620 

PRINT "NESSUN” ALTRA LINEA" 
GOTO 3580 

IF B*1 THEN 3660 


C=L 

B=1 

GOTO 3690 

INPUT "FINO ALLA LINEA: ":C 
IF (C<B)+(C>L)<>-1 THEN 3690 
C=L 

PRINT " CERCO " 

FOR K=B TO C 

Ps=" "LAS(K)&" " 


IF LEN(P$)<D THEN 3790 
A=LEN(P$)+1-D 

FOR I=1 TO A 

IF R$<>SEG$(P$,I,D)THEN 3780 
GOSUB 3830 

P$s=SEG$ (P$,2,LEN(P$)-1) 
NEXT I 

NEXT K 

PRINT Ni" CAMBI FATTI" 
GOSUB 5040 

GOTO 1340 
CPOS=P0S(P$,R$,1) 

IF CPOS<>0 THEN 3860 
RETURN 
T$(1)=SEG$(P$,2,CPOS-1) 
T$ (2)=SEG$ (P$, CPOS+D,LEN(P$)-1) 
P$=T$(1)&NSL" "&T$(2) 
A$(K)=P$ 

N=N+1 

PRINT "LINEA £"5K 
PRINT A$(K) 


RETURN 
PRINT “REGISTRATORE PRONTO: " 
OPEN £1:"CS1", INTERNAL, OUTPUT,FIXED 192 


PRINT £1:L 
FOR I=1 TO L+5 STEP 6 


3980 PRINT £1:A$(I),A$(I+1),A$(I+2),A$(I+3),A$(I+4),A$(I+5) 


3990 NEXT I 
4000 CLOSE £1 
4010 GOTO 1340 


4020 PRINT "REGISTRATORE PRONTO: " 


4030 OPEN £1:"CS1", INTERNAL, INPUT ,FIXED 192 


4040 INPUT £1:X 


4050 FOR I=L+1 TO X+L+5 STEP 6 


4060 
4070 NEXT I 
4080 L=L+X 
4090 CLOSE £1 
4100 GOTO 1340 


INPUT £1:A$(I),A$(I+1),A$(I+2),A$(I+3),A$(I+4),A$(I+5) 


4110 REM PRINT FINAL TEXT ON SCREEN ONLY 


4120 C=0 


4130 PRINT "SCEGLI IL FORMATO:"::: 4440 IF P<>94 THEN 4470 


4140 PRINT TAB(8); "O=NUMERATO" 4450 GOSUB 4690 
4150 PRINT TAB(8);"1=SINGOLO SPAZIO" 4460 GOTO 4490 
4160 PRINT TAB(8);"2=DOPPIO SPAZIO"::: 4470 IF P<>95 THEN 4490 
4170 GOSUB 5050 4480 GOSUB 4720 
4180 CALL KEY(0,k,S) 4490 PRINT CHR$(P); 
‘4190 IF S=0 THEN 4180 4500 CALL KEY(0,KE,ST) 
4200 CALL CLEAR 4510 IF ST«<1 THEN 4530 
4210 B=K-48 320 G60T0 13530 
4220 IF (K>%48)+(k<52)THEN 4240 ELSE 4130 45350 REM TEST FOR BLANK LINE 
4230 IF (B<0)+(B>2)THEN 4120 4540 IF (FP=66)*(LEN(P$)=2)THEN 4590 
4240 FOR I=i TOL 4550 NEXT K 
4250 P$=A$(I) 4560 IF B<>2 THEN 4590 
4260 IF B<>0 THEN 4280 4570 PRINT 
4270 PRINT I 4580 C=C+1 
4280 IF LEN(P$)=0 THEN 4640 4590 PRINT 
4290 PRINT ""; 4600 P=32 
4300 FOR K=1 TO LEN(P$) 4610 C=C+1 
43510 P=ASC(5SEG$(P$,k,1)) 4620 IF CéS1 THEN 4640 
43520 IF (P>64)#(P<91)THEN 43550 ELSE 4350 4630 C=0 
4350 P=P 4640 NEXT I 
43540 GOTO 4490 4650 GOTO 4750 
4350 IF (P>96)*(P<123)THEN 4560 ELSE 4380 4660 PRINT TAB(1); 
4560 P=P 4570 P=32 
‘4370 GOTO 4490 46580 RETURN 
43580 IF P<>47 THEN 4410 4690 P=ASC(SEG$(P$,k+1,1)) 
4590 P=44 4700 K=k+1 
4400 GOTO 4490 4710 RETURN 
4410 IF Pf>652 THEN 4440 4720 PRINT TAB(15); 
4420 GOSUB 4660 4730 F=32 
4430 GOTO 4490 4740 RETURN 

4750 PRINT " BATTI 1. PER CONTINUARE" 


4760 CALL KEY(0,K,5) 

4770 IF S=0 THEN 4760 

4780 GOTO 1260 

4790 CALL CLEAR 

4800 REM INSTRUCTIONS 

4810 PRINT "Q@UESTO PROGRAMMA DISPONE DI 100 LINEE DI TESTO":: 

4820 GOSUB 5040 

4840 PRINT “SCRIVE IN LETTERE MINUSCOLE (CORSIVO) OPPURE IN LETTERE MAIUSCOLE" 
4850 GOSUB 5040 

4860 PRINT "PER OTTENERE LE MAIUSCOLE — BATTERE UN ""*"" PRIMA DI": "OGNI LETTERA 


4870 PRINT "OPPURE SI POSSONO USARE I TASTI DI SHIFT O ALPHA LOCK":: 

4880 GOSUB 5030 

4890 PRINT "PER OTTENERE UNA LINEA VUDTA BATTETE ""BB"" O "">""" 

4900 PRINT "SEGUITO DA UN APFROPRIATO NUMERO DI SPAZI"::: 

4910 GOSUB 5040 

4920 PRINT "SE SI BATTE UNA LINE TROPPO LUNGA ESSA POTRA” ESSERE ACCORCIATA 0 
TOLTA DEL TUTTO" 

4930 PRINT "VERRA? COMUNQUE VISUALIZZATASULLO SCHERMO GIA” CORRETTA.LE LINEE CHE 
AVRANNO PIU” " 

4940 PRINT "DI 28 CARATTERI (COMPRESI GLI SFAZI) CONTINUI, SARANNO TOLTE COMPLE 
TAMENTE": :: 

4950 GOSUB 5030 

4960 PRINT "DOPO 52 LINEE SI AVRA” UN SEGNALE ACUSTICO INDICANTE CHE E’ STATA 
COMPLETATA .UNA PAGINA DI TESTO" 

4970 PRINT "DI UNA STAMFANTE A4 SPAZIATA SINGOLA":: 

4980 PRINT "TESTI SCRITTI SUL VIDEO O STAMPANTE POSSONO ESSERE FERMATI BATT 

ENDO UN TASTO"::: 


Programma "CHAR" 


di Corsini Paolo 


versione: Ex. 


downloaded trom 





Preambolo ...... 


Ho cominciato questo programma quasi per gioco, poichè mi diverti- 
vo a trasformare i caratteri degli altri computers ( Spectrum, VIC 20 e 
CBM 64 specificatamente ) che fanno uso-del codice binario o di quello 
decimale, in caratteri adattabili per il nostro TI che fa uso del 
codice esadecimale, potendoli così inserire nei vari programmi che 
possedevo. 

Finchè dovevo lavorare con il codice binario non c'era nessun 
problema che invece sorgeva con il codice umsx decimale: ero così 
costretto a fare moltissimi calcoli e conversioni. Così mi sono 
messo sulla tastiera ed ho elaborato un piccolo programma atto a 
fare quel tipo di calcoli. 

In seguito pensai di allargarlo per renderlo più versatile, ed 
ecco che elaborai il programma attuale che ho spedito. 


LOO O FERREE IEEE ** ** ** COSTRUZIONE 
** ** XX ** CARATTERI ** 

110! xx ** ** DI ** ** 

** ** CORSINI PAOLO ** ** + 

120 ' #** VIA CAVOUR, 12 ** ** ** ** SAN GIUSTINO 
** dt ** ** 06016 (PERUGIA) #* 

1350 |! x*x ** LITZZTATTEZLELZZZ LEI 

140 ! INIZIALIZZAZIONE E PRESENTAZIONE 


150 OPTION BASE 1 :: RESTORE 160 :: FOR T=1 TO S :: READ MESS$(T):: NEXT T 

150 DATA IN CODICE ESADECIMALE, IN CODICE BINARIO, IN CODICE DECIMALE, CON LA CHARP 
AT,PIXEL PER PIXEL 

170 CALL CLEAR :: DIM FET(40),KER$(40),MIL$(16), INT$(16),PER$(16) 

180 CALL CHARt126,RPT$("F",16),95,RPT$("F",16)):: CALL COLOR(5,8,1,6,8,1,7,8,1,8 
,8,1,13,4,1,8,12,1,4,9,1,12,14,1) 

190 CALL CHAR(129, "3C4299A1A199423C3C4299959991423C") 

200 RESTORE 210 :> FOR T=1 TO 16 :: READ MIL$(T),INT$(T),FER$(T):: NEXT T 

210 DATA 0,33}3}},0000,1,3}}*,0001,2,}}*?,0010,3,3}**,0011,4,}%}},0100,5,}*}*,0101 
sb6,}**},0110,7,}***,01li 

220 DATA 8,%}}},1000,9,%}}*,1001,A,%}*},1010,B,%}**,1011,C,**}},1100,D,**}*,1101 
sE, 9%}, 1110,F,****, 1111 

230 CALL SCREEN(2):: CALL HCHAR(3,3,126,28):: CALL HCHAR(15,3,126,28):: CALL VCH 


AR(4,3,126,12):: CALL VCHAR(4,30,126,11) 
240 DISPLAY AT(14,9)BEEP:CHR$(129)&" "&CHR$(130)&" SOFTWARE"; 
250 DISPLAY AT(5,4):" _ ___"$:: DISPLAY AT(6,4):"_ 


ea iI 
260 DISPLAY AT(7,4):"_ _ _ o "51: DISPLAY AT(8,4):"_ 


270 DISPLAY AT(9,4):"_ 
NO | 

280 DISPLAY AT(11,4):" "5 

290 DISPLAY AT(24,21):"<ENTER>" 

300 CALL KEY(0,KK,ST):: IF KK<>13 THEN 300 

310 ! SCHERMATA OPZIONI E SECONDA INIZIALIZ. 

320 IMAGE " £££ O £ £EFEEFFE FEFELEEE" 

330 IMAGE £ = £££  E££FEFFEFPFEFESA 

340 IMAGE " £££ £" 

350 IMAGE " £££ O £ £ELLELEE" 

360 CALL CLEAR :: CALL SCREEN(8):: CALL CHARSET :: FOR T=9 TO 14 :: CALL COLORCT 

,2,16):: NEXT T 

370 DISPLAY AT(3,1)ERASE ALL: "RICORDATI CHE 3000 --------------- " ss: DI 

SPLAY AT(9,1):" 1. CODICE ESADECIMALE" 

380 DISPLAY AT(10,1):" 2. CODICE BINARIO" 

390 DISPLAY AT(11,1):" 3. CODICE DECIMALE":" 4. CON LA CHARPAT ":" 5. PIXEL P 

ER PIXEL" 

400 DISPLAY AT(16,1):"#* P PRELEVARE":"* V VEDERE":"#* M MODIFICARE":"* F_ FINE" 

410 DISPLAY AT(24,21)BEEP: "<CENTER>" 

420 CALL KEY(0,KK,S):: IF KK<>13 THEN 420 

430 ! SCHERMO PRINCIPALE E VARIE SCELTE 

440 HEX$="0123456789ABCDEF" :: CALL CHAR(125,RPT$("0",16)&RPT$("F",16)):: CALL C 

OLOR(0,7,1):: DIM BJT(8,8) 

450 DISPLAY AT(1,1)ERASE ALL BEEP: "COSTRUZIONE CARATTERE" 

460 FOR T=3 TO 31 STEP 2 :: CALL HCHAR(8,T,125):: NEXT T 

470 FOR T=11 TO 18 :: CALL HCHAR(T,13,125,8):: NEXT T :: DISPLAY AT(20,11):"1234 

5678" :: FOR T=1 TO 8 :: CALL HCHAR(10+T,11,48+T):: NEXT T 

480 DISPLAY AT(5,1)BEEP: "SCEGLI : (1/5/F/P/V/M) 1" :: ACCEPT AT(5,24)VALIDATE ("1 

2345FMVP")SIZE(-1):C0$ 

490 IF POS("12345",C0$,1)<>0 THEN DISPLAY AT(2,1)BEEP:MESS$(VAL(CO$)) 

500 IF CO$="M" THEN GOSUB 1350 :: GOTO 480 ELSE IF CO$="V" THEN GOSUB 1540 :: GO 

TO 450 

510 IF CO$="P" THEN GOSUB 1670 :: GOSUB 1540 :: GOTO 450 

520 DISPLAY AT(5,1):: IF CO$="F" THEN CALL CLEAR :: GOSUB 1480 

530 IF CO$="1" THEN ACCEPT AT(24,7)BEEF VALIDATE (HEX$)SIZE(16):ESA$ :: IF LEN(ES 

A$)<16 THEN 530 :: GOSUB 740 :: GOSUB 1230 :: GOTO 480 

540 IF CO$="5" THEN GOSUB 970 :: GOSUB 1230 :: GOTO 480 

550 IF CO$="2" THEN GOSUB 840 :: GOSUB 1230 :: GOTO 480 ELSE IF CO$="4" THEN 560 

ELSE 590 

560 DISPLAY AT(5,1):"CHE LETTERA ? " 

570 ACCEPT AT(5,16)SIZE(1):6H$ :: CALL CHARPAT(ASC(GH$),ESA$):: DISPLAY AT(24,7) 

:ESA$ ':: GOSUB 740 :: GOSUB 1230 :: GOTO 480 

580 ' COSTRUZIONE CARATTERE CODICE BINARIO 

590 PA=0 :: FOR T=10 TO 18 :: CALL HCHAR(T,3,32,5):: NEXT T 

600 ACCEPT AT(11+9A,3)SIZE(3) VALIDATE (DIGIT, "U") BEEP: N$ 

610 IF SEG$(N$,1,1)="U" OR SEG$(N$,2,1)="U" OR SEG$(N$,3,1)="U" THEN 480 

620 IF N$="" THEN 600 ELSE N=VAL(N$):: IF N>255 THEN 600 

630 FOR T=1 TO 8 :: N=N/2 

640 IF N=INT(N)THEN AA=125 :: BIN=0 ELSE AA=126 :: BIN=1 

650 N=INT(N):: CALL HCEHAR(11+PA,21-T,AA):: CALL HCHAR(11+PA,31-T,48+BIN):: BIT (P 

A+1,9-T)=BIN :: NEXT T 

660 IF PA=7 THEN PA=0 :: GOSUB 680 :: GOSUB 1230 :: GOTO 480 ELSE PA=PA+1 

670 GOTO 600 

680 ESA$="" 

690 FOR RO=1 TO 8 :: LOW=BJT(R0,5)#*8+HJT(RO,6)#4+BJT(R0,7)*2+BJT(R0,8)+1 

700 HIGH=BJT (RO, 1) #8+BJT (RO, 2) #4+BJT(R0,3)#2+BJT(R0,4)+1 :: ESA$=ESA$&SEG$ (HEX$, 

HIGH, 1) &SEG$ (HEX$, LOW, 1) 


"3:: DISPLAY AT(10,4):" 


710 NEXT RO :: DISPLAY AT(24,7)BEEP:ESA$ :: CALL CHAR(128,ESA$) 

720 GOSUB 1210 :: RETURN 

730 ! COSTRUZIONE CARATTERE CODICE ESADECIMALE 

740 ADD$, BINI$="" :: PA=0 :: FOR T=1 TO 16 

750 KW$=SEG$(ESA$,T,1):: GOSUB 800 :: ADD$=ADD$&KAD$ :: BIN1$=BIN1$&BIN$ 

760 IF T/2=INT(T/2)THEN 770 ELSE 790 

770 DECA=0 :: FOR TT=7 TO O STEP -1 :: AHH=VAL(SEG$(BIN1$,1+7-TT,1)):: DECA=DECA 
+ (AHH*2%TT):: NEXT TT 

780 PA=PA+1 :: DISPLAY AT(10+PA,2) BEEP:USING 320:DECA,FA, ADD$, BIN1$ :: ADD$,BINI 
$= sen 

790 NEXT T :: CALL CHAR(128,ESA$):: GOSUB 1210 :: RETURN 

800 FOR TW=1 TO 16 :: IF KW$=MIL$(TW)THEN AD$=INT$(TW):: BIN$=PER$(TW):: GOTO 82 
O ELSE 810 

810 NEXT TW 

820 RETURN 

830 ! COSTRUZIONE CARATTERE CODICE BINARIO 

840 FOR T=10 TO 18 :: DISPLAY AT(T,21):: NEXT T:: ESA$="" :: FOR T=1 TO 8 

850 ACCEPT AT(10+T,21)VALIDATE("10U"):BIN$ :: IF BIN$="U" THEN 480 :: IF LEN(BIN 
$)<8 THEN 850 

860 FOR TT=1 TO 8 :: IF SEG$(BIN$,TT,1)="U" THEN 480 

870 NEXT TT 

880 DECA=0 :: FOR TT=7 TO 0 STEP -1 :: AHH=VAL(SEG$(BIN$,1+7-TT,1)):: DECA=DECA+ 
CAHHX2®TT):: NEXT TT 

890 ADD$="" :: FOR TT=1 TO 2 :: KW$=SEG$(HIN$,TT#4-3,4):: GOSUB 920 :: ESA$=ESA$ 
&ES$ :: ADD$=ADD$LKAD$ :: NEXT TT 

900 DISPLAY AT(10+T,2)BEEP:USING 350:DECA,T,ADD$; 

910 NEXT T :: DISPLAY AT(24,7)BEEP:ESA$ :: CALL CHAR(128,ESA$):: GOSUB 1210 :: R 
ETURN 

920 FOR DF=1 TO 4 :: KJ(DF)=VAL(SEG$(KW$,DF,1)):: NEXT DF 

930 -HIGH=KJ (1) #8+K (2) #4+KJ (3) #2+KJ (4) #1+1 :: ES$=SEGS(HEXE HIGH, 1) 

940 AD$="" :: FOR DF=1 TO 4 :: REF$=SEG$(KW$,DF,1):: IF REF$="0" THEN AD$=AD$&"} 
" ELSE AD$=AD$&"*" 

950 NEXT DF :: RETURN 

960 ! COSTRUZIONE CARATTERE PIXEL FER PIXEL 

970 DISPLAY AT(5,1)BEEP:"1 = NERO 0 = BIANCO" :: FOR R=1 TO 8 :: FOR C=1 TO 8 
980 CALL HCHAR(10+R, 12+C,30) 

990 CALL KEY(0,K,ST):: IF ST=0 THEN 990 

1000 IF (K<>8)+(K<>9)<=-2 THEN 1010 ELSE GOSUB 1090 :: GOTO 980 

1010 K=K-48 :: IF Ké0 OR K>1 THEN 990 

1020 BJT(R,C)=K :: CALL HCHARC(10+R,12+C,125+k):: NEXT C 3: NEXT R 

1030 ESA$="" :: FOR R=1 TO 8 :: LOW=BJT(R,5)*8+BJT(R,6)*4+BJT(R,7)*2+BJT(R,8)+1 
1: HIGH=BJT(R,1)*8+BJT(R,2)#4+BJT(R,3)*2+BJT(R,4)+1 

1040 ESA$=ESA$&SEG$ (HEX$, HIGH, 1)&SEG$ (HEX$, LOW, 1):: BIN$="" 

1050 FOR RR=1 TO 8 :: BIN$=BIN$&STR$(BJT(R,RR)):: NEXT RR :: DISPLAY AT(10+R,21) 
SIZE (8) BEEP: BIN$ 

1060 DECA=0 :: DECA=BJT(R,1)*128+BJT(R,2)#64+BJT(R,3)*32+BJT(R,4)#16+(LOW-1) 
1070 DISPLAY ATC10+R,2):USING 340:DECA,Ri:: NEXT R 

1080 DISPLAY AT(24,7):ESA$ :: CALL CHAR(128,ESA$):: GOSUB 1210 :: RETURN 

1090 CALL HCHAR(10+R,12+C,125+BJT(R,C)) 

1100 IF K=9 THEN 1150 


1110 C=C-1 :: IF C«>0 THEN 1200 
1120 C=8 :: R=R-1 

1130 IF R<>0 THEN 1200 

1140 R=8 :: GOTO 1200 

1150 C=C+1 


1160 IF C<>9 THEN 1200 

1170 C=1::: R=R+1 

1180 IF R<>9 THEN 1200 

1190 R=1 

1200 RETURN 

1210 FOR 00=3 TO 31 STEP 2:: CALL HCHAR(8,00,128):: NEXT GQ :: RETURN 

1220 '! RICHIESTA DI MEMORIZZAZIONE CARATTERE 

1230 DISPLAY AT(S,1) BEEP: "VUOI MEMORIZZARLO ? " :: ACCEPT AT(5,22)VALIDATE ("SN") 


SIZE(1):BET$ 

1240 IF BET$="S" THEN GOSUB 1250 :: RETURN ELSE RETURN 

1250 TIME=TIME+1 :: IF TIME<=40 THEN 1270 ELSE TIME=40 :: GOTO 1260 

1260 CALL SOUND (200, 220,0):: DISPLAY AT(5,1):"* HAI DEFINITO 40 CARATTERI" :: FO 
R T=1 TO 500 :: NEXT T :: RETURN 

1270 DISPLAY AT(S,1)BEEP: "CON CHE CODICE ? " :: ACCEPT ATiS,19)VALIDATE (DIGIT)SI 
ZE (3):FUC$ :: IF FUC$="" THEN 1270 ELSE FET(TIME)=VAL (FUC$) 

1280 IF FET(TIME)=128 OR FET:‘TIME)=125 OR FET(TIME)=126 OR FET(TIME)<33 OR FET(T 
IME) >143 THEN 1290 ELSE 13500 

1290 CALL SOUND (200, 220,0):: DISFLAY AT(5,1):"* CODICE PROIBITO" :: FOR TTT=1 TO 
3500 ::3 NEXT TTT :: GOTO 1270 

13500 FOR YY=1 TO TIME :: IF YY=TIME THEN 1520 :: IF FET(YY)«+FET(TIME)THEN 1320 
1510 CALL SOUND(200, 220,0):: DISPLAY AF(S5,1):"» CODICE GIA’ PRESENTE" :: FOR T=1 
TO 500 :: NEXT T :: GOTO 1270 

1320 NEXT YY :: KER$(TIME)=ESA$ :: CALL CHAR(FET(TIME) ,KER$(TIME)) 

13530 DISPLAY AT(2,1)BEEP: "CARATTERE"; FET(TIME); "MEMORIZZATO" :: GOSUB 1650 :: RE 

TURN 


1340 ! SUBROUTINE MODIFICA CARATTERE 
13550 IF TIME=0 THEN RETURN 
1360 DISPLAY AT(5,1)BEEP: "CHE CODICE ? " :: ACCEPT AT(5,15)VALIDATE(DIGIT)SIZE (3 


):6H$ :: IF GH$="" THEN RETURN ELSE GHY=VAL (GH$) 

1370 IF GHY=128 OR GHY<335 OR GHY:1435 OR GHY=125 OR GHY=126 THEN 1360 

13580 FOR YY=1 TO TIME :: IF GHY<x>FET(YY)THEN 1440 

1590 DISPLAY AT(2,1)BEEP:USING 330: CHR$(FET(YY)),FET(YY),KER${YY) 

1400 DISPLAY AT(S,1): "VUOI CANCELLARLO (S/N)? N" :: ACCEPT AT(5,25)VALIDATE("SN" 
)SIZE(-1):ZZ% :: IF ZZ$="S" THEN GOSUB 1450 :: RETURN 

1410 DISPLAY AT(2,1)BEEP: "MODIFICA CARATTERE "sFET(YY):: DISPLAY AT(5,1):USING 3 
30:CHR$ (FET(YY)),FET(YY),KER$(YY) 

1420 ACCEPT AT(5,13)VALIDATE (HEX$)SIZE(-16):KER$(YY) 

1450 CALL CHARCFET(YY),KER$(YY)):: FOR T=1 TO 200 :: NEXT T :: RETURN 

1440 NEXT YY :: CALL SOUND(200,220,0):: DISPLAY AT(5,1):"* CODICE INESISTENTE" : 
: FOR GT=i TO 600 :: NEXT GT ::: RETURN 

1450 DISPLAY AT(2,1)BEEP: "CARATTERE "sFET(YY)s" CANCELLATO" 

1460 FOR II=YY TO TIME-1 :: FET(II)=FET(II+1):: KER$(II)=KER$(II+1):: NEXT II :: 
TIME=TIME-1 :: RETURN 

1470 ‘' FINE PROGRAMMA 

1480 IF TIME=0 THEN 1520 

1490 OPEN £1:"CS1", INTERNAL, OUTPUT,FIXED 64 

1500 CALL CLEAR :: PRINT £1:TIME :: FOR YY=1 TO TIME :: FRINT USING 330:CHR$ (FET 
(YY)),FET(YY),KER$(YY) 

1510 PRINT £1:FET(YY),KER$(YY):: NEXT YY :: CLOSE £i :: GOSUB 1680 

1520 CALL CLEAR :: STOP 

15350 ' SUBROUTINE VISUALIZ. CARATTERI 

1540 IF TIME=0 THEN 480 ELSE CALL CLEAR 

1550 QWE=0 :: FOR YY=1 TO TIME :: QWE=CWE+2 :: DISPLAY AT(OQUE, 1) : USING 350: CHR$( 

FET(YY)),FET(YY),KER$(YY) 

1560 IF QWE=20 THEN QWE=0 :: DISPLAY AT(24,21) BEEP: "<ENTER>" ELSE 1580 

1570 CALL. KEY(0,K,S)s: IF K<>13 OR S=-1 THEN 1570 ELSE CALL CLEAR 

1580 NEXT YY 

1590 DISPLAY AT(24,1):: DISPLAY AT(24,21) BEEP: "<ENTER>" 

1600 CALL KEY(0,KK,ST)s:: IF Kk<>13 THEN 1600 

1510 RETURN 

1520 ‘' ORDINAMENTO CARATTERI 

16350 FOR YTY=1 TO TIME-1 :: FOR TYT=YTY+1 TO TIME :: IF FET(YTY)<FET(TYT)THEN 16 

SO 

1640 PAL=FET(YTY):: FET(YTY)=FET(TYT):: FET(TYT)=FAL :: PAL$=KER$(YTY):: KER$(YT 

Y)=KER$ (TYT):: KER$(TYT)=PAL$ 

1650 NEXT TYT :: NEXT YTY :: RETURN 

1660 ! PRELEVAMENTO CARAT. DA REGISTRATORE 

16570 IF TIME<>0 THEN 480 

1680 CALL CLEAR :: OPEN £1:"CS1", INTERNAL, INPUT ,FIXED 64 :: INPUT £1:TIME 

1690 FOR YY=1 TO TIME :: INPUT £1:FET(YY),KER$(YY):: CALL CHAR(FET(YY),KER$(YY)) 
s3 NEXT YY 

1700 CLOSE £1 :: RETURN 


Descrizione del programma. 


Dopo una breve presentazione, appare il menù che indica le pos- 
sibili scelte che si possono fare durante l'esecuzione del programma, 
In seguito inizia il programma vero e proprio. Lo schermo è 
formato da un grande quadro bianco di 8 x 8 caselle in bassa risolu- 
zione, dove verrà costruito il carattere con ai lati i numeri,da I a 8 
che indicano le coordinate di ogni casella interna al quadrato. Sepra 

di questo trovano posto una serie di piccoli quadrati bianchi nei 
quali apparirà il carattere appena costruito in grandezza naturale. 
Infine in alto la scritta: " COSTRUZIONE CARATTERE ". Sotto 
di questa appariranno, durante il corso del programma, varie scritte 
che indicanoil modo con cui stiamo lavorando e altri messaggi. Com- 
pare poi un messaggio che chiede la nostra scelta, cioè in che modo 
vogliamo lavorare: " I/2/3/4/5/V/4/P/P ", che ora esamineremo 
attentamente. 


Esadecimale 


I. Viene chiesto ( in basso sullo schermo ) di inserire una stringa in 
codice esadecimale, riguardante il carattere da costruire e dopo 
breve tempo comparirà riga per riga nel quadrato centrale la sagoma 
del carattere e lateralmente l'equivalente in codice decimale ( a 
sinistra ) e in codice binario ( a destra ) e infine comparirà il 
carattere così creato nei piccoli quadrati bianchi. 

Attenzione !!! Nella stringa devono essere scritti tutti i I6 
caratteri, infatti non vengono accettati gli spazi: al loro posto 
bisogna porre degli f. 


Binario 


2, Bisogna inserire nella parte destra dello schermo, una stringa di 
8 caratteri formata da Ie da Y, questo riga per riga, anche quì 
come sopra bisogna digitare tutte le 8 cifre. Poi vengono calcolati 
i corrispondenti valori decimali e la stringa esadecimale. 
E' possibile utilizzare l'opzione " U " ( uscire ): in questo modo 
si ritorna al messaggio che ci chiederà la nostra scelta. 


Decimale 


3. Vengono inseriti nella parte sinistra dello schermo, riga per riga, 
i valori decimali che formeranno il carattere: non vengono accettati 
valori nulli("") o valori inferiori allo @ o maggiori a 255. Ven- 
gono poi calcolati i valori binari e esadecimali. Anche qui è pos- 
sibile l'opzione " U". 


Charpat 


4. ‘In questa parte di programma viene sfruttata la charpat che serve a 
conoscere la stringa esadecimale di un carattere in tastiera. Alla 
richiesta " CHE LETTERA ? ", noi non faremo altro che digitare 
la lettera desiderata. Poi si profiegue come al punto I. 


Pixel per pixel 


5. Questa è la parte più utile e consente di creare un carattere, 
appunto pixel per pixel. Ecco come agire. 
Se vogliamo che nel punto in cui si trova il cursore rosso si accenda 
un pixel premiamo il tasto " I ": il quadrato si colorerà di nero e 
il cursore si sposterà in avanti, altrimenti premiamo " dl e il 
quadrato rimarrà bianco. Se vogliamo spostare il cursore lungo il 
grande quadrato senza alterare la sagoma già disegnata, dobbiamo 
usare il tasto " FCIN " insiene a " S" o " D ", secondo la 
direzione in cui dobbiamo andare. Per terminare il disegno, dobbiamo 


smnzzara portare il cursore nel quadrato in basso a destra e premere 
" I" o"g@ " secondo il disegno. Come al solito verranno calcolati 


i valori dei vari codici. 


Ogni volta che avremo eseguito una,di questa 5 operazioni, il 
computer vi chiederà se il carattere appena costruito deve essere 
màmorizzato o no. Se si dovrete premere " S "; dopo vi viene chiesto 
con quale codice ASC II: attenzione a non digitare un numero già 
presente o un codice riservato: se accade il computer lo segnalerà. 


Vedere 


V. Serve a visuabizzare i caratteri memorizzati in pagine di I? 
caratteri alla volta: di ognuno di questi viene mostrato nell'or- 
dine: il carattere costruito, il suo codice ASC II e la stringa 
esadecimale, in ordine di codice dalt più basso al più alto. 
Possono essere memorizzati al massimo 4@ caratteri. 


Modificare 


M, Una volta che un carattere è stato memorizzato, l'unico modo per 
poterlo ritoccare o cancellare, è usare questa opzione. Viene chiesto 
il numero di codice. Se esso è presente in memoria, viene mostrato 
tutto su di esso nella seconda riga e vi viene chiestoz se deve 
essere cancellato o no. Se la risposta è affermativa il carattere 
viene cancellato automaticamente, altrimenti sono chieste le 
opportune modifiche alla sua stringa. 


Fine 


F. Pone fine al programma: ge non vi erano caratteri in memoria esso 
a semplicemente termine, altrimenti viene aperto un file del 
registrtore dove verranno registrati tutti caratterà memorizzati. 
Così se vogliamo riutilizzarli in un programma diverso, basterà 
porre nel programma in questione la seguente routine: 


IG OPEN # I: " CSI ", INTERNAL, INPUT, PIXED 64 
209 INPUT # I: TIME 

39 POR YY=I TO TIME 

49 INPUT # I: FET(YY),KERS(YY) 

59 CALL CHAR(FET(YY),KERS(YY)) 

69 NEXT YY 

718 CLOSE#I 


100 CALL 
110 CALL 
120 PRINT 
1350 PRINT 
140 PRINT 
150 CALL 
160 CALL 
170 CALL 
180 CALL 
190 CALL 
200 CALL 
210 CALL 
220 CALL 
230 R=10 
240 CO=10 
250 FOR N 
260 FOR M 
270 CALL 
280 CALL 
290 CALL 
300 CALL 
310 CALL 
320 CALL 
3350 CALL 
340 CALL 
350 R=R+5 
360 NEXT 
370 R=10 
380 CO0=C0 
390 NEXT 
400 LLA=1 
410 LLAS= 
420 LLBF= 
430 LLB=1 
440 LC=15 
450 LCS=1 
460 LDF=1 
470 LD=14 
480 LDS=1 


490 LEF=156 
900 LE=165 
510 LF=175 
920 LFS=185 
930 L6F=185 
540 L6=196 
950 L6S=208 
560 LAF=208 
570 LA=220 
980 LAS=233 
990 LBF=233 
600 LB=247 
610 (=262 

620 CS=277 
630 DF=277 
640 3294 

650 DS=311 
660 EF=311 
670 E=330 


CLEAR 
SCREEN(11) 


di FRANCOMPUTER ":: 


a VERSIONE IN JAZZ 
CHAR (136, "00010307FF030102") 
CHAR (137, "5455555555999v9 
CHAR (134, "000E314080700C03") 
CHAR (135, "3048944424120A86") 
CHAR (1358, "060F5F5F5E00008") 


CHAR (139, "0000F") 
CHAR (140, "0408" ) 
CHAR (141, "402") 


=1 T0 3 
=1 T0 3 
HCHAR (RK, CO, 136) 
HCHAR (R-1,CO, 134) 
HCHAR (R-1,C0+1, 135) 
HCHAR (R,C0+1,137) 
HCHAR (R, C0+2, 138) 
HCHAR (R, C0+3, 139) 
HCHAR (R+1, CO, 140) 
HCHAR (R+1,C0+2, 141) 


M 


680 F=349 
690 FS=370 
N 700 6F=370 
10 710 6=392 
117 720 652415 
ae 730 AF=415 
23 740 A=440 
1 750 AS=A66 
39 760 BF=466 
39 770 B=494 
dh 780 HC=523 
hi 790 HCS=554 
800 HDF=554 
810 HD=597 
820 HDS=622 
830 HEF=622 
BIO HE=659 
850 HF=698 
860 HFS=740 
870 H6F=740 
880 H6=784 
890 H6S=831 
900 HAF=931 
910 HA=890 
920 HAS=932 
930 HBF=932 
940 HB=988 
950 HHC=1047 
960 HHCS=1109 
970 HHDF=1109 
980 HHD=1175 


+5 


VOLO DEL CALABRONE": 


990 HHDS=1245 
1000 HAEF=1245 
1010 HHE=1319 
1020 HHF=1397 
1030 HHFS=1480 
1040 HHGF=1480 
1050 HH6=1568 
1060 HAGS=1661 
1070 HHAF=1661 
1080 HHA=1760 
1090 HHAS=1864 
1100 HHBF=1864 
1110 HHB=1976 
1120 HHHC=2094 
1130 1=-100 
1140 REN 1-4 
1150 FOR 251 TO 4 
1160 CALL SOUNDIT,LLA,0,A,0) 
1170 CALL SOUNDIT,LLA,0,LA,0) 
1180 CALL SOUND(T,LA,0,HA,0) 
1190 CALL SOUNDIT,LA,0,A,0) 
1200 CALL SOUND(T,LC,0,HC,0) 
1210 CALL SOUND(T,LC,0,C,0) 
1220 CALL SQUND(T,LD,0,HD,0) 
1230 CALL SOUND(T,LD,0,D,0) 
1240 CALL SOUNDIT,LDS,0,HDS,0) 
1250 CALL SOUNDIT,LDS,0,05,0) 
1260 CALL SOUNDIT,LE,0,HE,0) 
1270 CALL SOUNDIT,LE,0,E,0) 
1280 CALL SQUNDIT,LC,0,HC,0) 
1290 CALL SOUND(T,LC,0,C,0) 
1300 CALL SQUND(T,LE, 0,HE,0) 
1310 CALL SDUNDIT,LE,0,E,0) 
1320 NEXT 2 
1330 REN 5-7 
1340 FOR 231 T0 3 
1350 CALL SQUND(T,HE,O,LLA,0) 
1360 CALL SOUNDIT,HEF,0,LLA,0) 
1370 CALL SDUNDIT,HD,0,LA,0) 
1380 CALL SOUNDIT,HDF,0,LA,0) 
1390 CALL SOUNDCT,HC,0,LC,0) 
1400 CALL SOUND(T,HF,0,LC,0) 
1410 CALL SOUND(T,HE,0,LD,0) 
1420 CALL SOUNDAT,HDS,0,LD,0) 
1430 CALL SOUND(T,HE,0,LDS,0) 
1440 CALL SOUNDIT,HDS,0,LDS,0) 
1450 CALL SOUND(T,HD,0,LE,0) 
1460 CALL SOUND(T,HDF,0,LE,0) 
1470 CALL SQUND(T,HC,0,LC,0) 
1490 CALL SOUNDIT,HDF,0,LC,0) 
1490 CALL SOUND(T,HD,0,LE,0) 
1500 CALL SOUNDIT,HDS,0,LE,0) 







1510 NEIT 2 
1520 REN 8 

1530 CALL SOUNDIT,HE,O,LLA,0,A,0) 
1540 CALL SOUNDIT,LLA,0,LA,0) 
1550 CALL SOUNDIT,LA,0,HA,0) 
1560 CALL SOUNDIT,LA,0,A,0) 

1570 CALL SOUMDIT,LC,0,HC,0) 
1590 CALL SOUNDIT,LC,0,C,0) 

1590 CALL SOUND(T,LD, 0,HD,0) 
1600 CALL SOUNDIT,LD,0,D,0) 

1610 CALL SOUNDIT,LDS,0,HDS,0) 
1620 CALL SOUNDIT,LDS,0,DS,0) 
1630 CALL SOUNDIT,LE,O,HA,0) 
1640 CALL SOUNDIT,LE,0,A,0) 

1650 CALL SOUNDIT,LC,O,HA,0) 
1660 CALL SOUND(T,LC,0,A,0) 

1670 CALL SOUNDIT,LE,0,HF,0) 
1680 CALL SOUND(T,LE,0,F,0) 


1690 REN 9-11 

1700 FOR 251 10 3 

1710 CALL SOUNDIT,HA,0,LD,0) 
1720 CALL SQUNDIT,HAF,0,L0,0) 
1730 CALL SOUNDIT,HG,0,0,0) 
1740 CALL SOUNDCT,HGF,0,D,01 
1750 CALL SOUNDIT,HF,0,LF,0) 
1760 CALL SOUNDIT,HBF,0,LF,0) 
1770 CALL SOUNDIT,HA,0,L6,0) 
1780 CALL SOUND(T,H6S,0,L6,0) 
1790 CALL SOUD(T,HA,0,L65,0) 
1800 CALL SOUNDIT,HGS,0,L65,0) 
1810 CALL SOUND(T,HG,0,LA,0) 
1820 CALL SOUND(T,HGF,0,LA,0) 
1830 CALL SOUNDIT,HF,0,LLA,0) 
1840 CALL SOUND(T,HGF,0,LLA,0) 
1950 CALL SOUND(T,HG,O,LA,0) 
1840 CALL SOUND(T,HGS,0,LA,0) 
1870 NEXT 2 

1880 REN 12 

1890 CALL SOUNDIT,HA, 0,L0,0,HD,0) 
1900 CALL SQUNDIT,L0,0,0,0) 
1910 CALL SOUNDT,D,0,HHD,0) 
1920 CALL SQUND(T,0,0,HD,0) 
1930 CALL SQUNDIT,LF,0,HF,0) 
1940 CALL SQUNDIT,LF,0,F,0) 
1950 CALL SOUND(T,L6,0,H6,0) 
1960 CALL SOUND(T,L6,0,6,0) 
1970 CALL SOUNDIT,LES,0,H6S,0) 
1980 CALL SOUND(T,L6S,0,65,0) 
1990 CALL SOUNDAT,LA,0,HD,0) 
2000 CALL SOUND(T,LA,0,0,0) 
2010 CALL SOUNDIT,LLA, 0,HF,0) 
2020 CALL SOUNDIT,LLA,0,F,0) 
2030 CALL SOUNBIT,LA,0,HA,0) 
2040 CALL SOUNDIT,LA,0,A,0) 
2050 REM 13 

2060 FOR Y=1 102 

2070 CALL SOUNDIT,LE,0) 

2080 CALL SOUNDIT,LE,0,E,0) 
2090 CALL SQUNDIT,E,0,HD, 0, HHE,0) 
2100 CALL SOUNDIT,E,0,HE,0) 
2110 CALL SQUNDIT,LE,0,HE,0) 
2120 CALL SOUNDIT,LE,0,E,0) 
2130 CALL SOUNDIT,E,0,H6,0) 
2140 CALL SOUND(T,E,0,6,0) 
2150 CALL SQUNDIT,LE,0,HES,0) 
2160 CALL SOUNDIT,LE,0,65,0) 
2170 CALL SOUNDIT,E,0,HB,0) 
2180 CALL SOUNDIT,E,0,B,0) 
2190 CALL SOUNDIT,LE,0,HHCS,0) 
2200 CALL SOUNDIT,LE,0,HCS,0) 
2210 CALL SOUNDIT,E,0,HME,0) 
2220 CALL SOUNDIT,E,0,HE,0) 
2230 REN 14 
2240 CALL SOUNDIT,LF,0,HAF,0,HHF,0) 
2250 CALL SOUNDIT,LF,0,F,0) 
2260 CALL SOUNDIT,F,0,HF,0) 
2270 CALL SOUNDIT,HF,0,HHF,0) 
2280 CALL SOUNDIT,LF,0,F,0) 
2290 CALL SOUNDIT,F,0,HF,0) 
2300 CALL SQUNDIT,F,0,HAF,0,HMF,0) 
2310 CALL SOUNDIT,HF, 0, HHF,0) 
2320 CALL SOUNDIT,LF,0,F,0) 


2330 CALL SOUNDIT,LF,0,F,0) 
2340 CALL SOUNDIT,F,0,HF,0) 
2350 CALL SQUNDIT,HF,0,HMF,0) 
2360 CALL SOUNDIT,LF,0,HAF,0,HAF,0) 
2370 CALL SOUNDIT,LF,0,F,0) 
2580 CALL SOUNDT,F,0,HF,0) 
2390 CALL SOUND(T,HF,0,HMF,0) 
2400 NEXT Y 
2410 REN 17 
2420 FOR Y=1 TO 4 
2430 CALL SOUNDIT,LLA,0,HA,0) 
2440 CALL SOUNDIT,LLA,0,HBF,0) 
2450 CALL SOUNDIT,LA,0,HA, 0) 
2460 CALL SOUNDIT,LA, 0,H6S,0) 
2470 NEIT Y 
2480 REN 18 
2490 CALL SOUNDIT,LLA,0,HA,0) 
2500 CALL SOUNDIT,LLA, 0,HAS,0) 
2510 CALL SOUNDIT,LA,0,HB,0) 
2520 CALL SOUNDIT,LA,0,HHC,0) 
2530 CALL SOUNDIT,LLA,0,HHCS,0) 
2540 CALL SOUNDIT,LLA,0,HHC,0) 
2550 CALL SOUNDIT,LA,0,HB, 0) 
2560 CALL SOUNDIT,LA, 0,HAS,0) 
2570 CALL SOUNDIT,LLA, 0, HA,0) 
2590 CALL SOUNDIT,LLA,0, HAS, 0) 
2590 CALL SOUND(T,LA,0,HB,0) 
2600 CALL SOUNDIT,LA, 0, KHC,0) 
2610 CALL SOUNDIT,LLA, 0, HHCS,0) 
2620 CALL SOUNDIT,LLA,0,LA,0) 
2630 CALL SOUNDIT,LA,0,A,0) 
2640 CALL SOUNDIT,A,0,HA, 0) 
2650 REN 19 
2660 FOR Y=1 102 
2670 CALL SOUNDIT,L0,0) 

2680 CALL SOUNDIT,LD,0,0,0) 
2690 CALL SOUNDIT,D,0,HC,0,HHD, 0) 
2700 CALL SOUNDIT,D,0,HD,0) 
2710 CALL SOUND(T,LD,0,HD,0) 
2720 CALL SOUNDIT,LD,0,0,0) 
2750 CALL SOUND(T,0,0,HF,0) 
2740 CALL SQUNDIT,0,0,F,0) 

2750 CALL SOUNDIT,LD, 0,HFS,0) 
2760 CALL SOUNDIT,LD,0,F5,0) 
2770 CALL SOUNDIT,D,0,HA,0) 
2780 CALL SOUNDIT,D,0,A,0) 

2790 CALL SOUNDKT,L0,0,HB,0) 
2800 CALL SOUNDIT,LD,0,8,0) 
2810 CALL SOUNDIT,D,0,HHD, 0) 
2820 CALL SOUNDIT,0,0,HD,0) 
2030 REN 20 
2840 CALL SOUNDIT,LEF,0,HDF,0,HMEF,0) 
2850 CALL SOUNDIT,LEF,0,EF,0) 
2860 CALL SOUNDIT,EF,0,HEF,0) 
2870 CALL SOUNDIT,HEF,0,HHEF,0) 
2890 CALL SOUNDIT,LEF,0,EF,0) 
2890 CALL SOUNDIT,EF,0,HEF,0) 
2900 CALL SOUNDIT,EF,0,HDF,0,HHEF,0) 
2010 CALL SOUNDIT,HEF,0,HMEF,0) 

2920 CALL SOUNDIT,LEF,0,EF,0) 
2930 CALL SOUNDIT,LEF,0,EF,0) 

2940 CALL SOUNDIT,EF,0,HEF,0) 
2950 CALL SOUND(T,HEF,0,HHEF,0) 

2960 CALL SOUNDIT,LEF,0,HDF,0,HHEF,0) 
2070 CALL SOUNDIT,LEF,0,EF,0) 


2980 CALL SOUNDIT,EF,0,HEF,0) 


3630 CALL SOUNO(T,E,0,HHCS,0) 


2990 CALL SOUNDIT,HEF,0.HMEF,0) 3640 CALL SOUNDIT,LE,0,HMD,0) 


5000 MEIT Y 

3010 REN 23 

3020 FOR Y=1 T0 4 

3030 CALL SOUNDAT,LD, 0,HHD,0) 
3040 CALL SQUNDIT,LO, 0, HHEF,0) 
3050 CALL SOUND(T,D,0,HHD, 0) 
3060 CALL SOUNDIT,D,0,HHCS,0) 
3070 NEIT Y 

3090 REN 24 

3090 CALL SOUNDIT,LO,0,HHD,0) 
3100 CALL SQUNDIT,LO,0,HHDS,0) 
3110 CALL SQUNDCT,D, 0, HHE,0) 
3120 CALL SOUMD(T,D,0,HAF,0) 
3130 CALL SOUND(T,LO,0,HHFS,0) 
3140 CALL SQUNDIT,LO,0,HHF,0) 
3150 CALL SOUND(T,,D,0,HHE,0) 
3160 CALL SOUND(T,D,0,HHDS,0) 
3170,CALL SOUNDET, LD, 0, HD, 0) 
3190 CALL SOUNDIT,LD,0,HHDS, 0) 
3190 CALL SOUND(T,D, 0, HHE,0) 
7200 CALL SQUNDIT,,D,0,HAF,0) 
3210 CALL SOUNDIT,LD, 0, HHFS,0) 
3220 CALL SOUNDIT,LD,0,0,0) 
3230 CALL SOUND(T,D,0,kD,0) 
5240 CALL SQUNDAT,HD,0,HHD, 0) 
3250 REN 25 

3260 CALL SOUDIT,LG, O, HAD, 0) 
3270 CALL SOUND(T,LG,0,HHDF,0) 
3290 CALL SOUND(T,6,0,HHC,0) 
3290 CALL SOUND(T,6,0,HB,0) 
3300 CALL SOUNDIT,LG,0,HBF,0) 
3310 CALL SQUNDIT,LG, 0, HHEF,0) 
3320 CALL SOUNDIT,6,0,HAD,0) 
3330 CALL S0UND(T,6,0, HHCS,0) 
3340 CALL SOUND(T,L6,0,HHD, 0) 
3350 CALL SOUNDIT,LG,0,HHCS, 01 
3360 CALL SQUNDIT,6,0,HHC,0) 
3370 CALL SOUND(T,6,0,HB,0) 
3390 CALL SQUND(T,LG,0,HBF,0) 
3390 CALL SOUND(T,LG,0,HB,0) 
3400 CALL SQUNDIT,6,0,HHC,0) 
3410 CALL SOUND(T,6,0,HHCS,0) 
7420 REN 26 

3430 CALL SOUND(T,LG,0,HHD,0) 
3440 CALL SOUNDIT,LG,0,HHDF,0) 
3450 CALL SOUND(T,6,0,HHC,0) 
3460 CALL SOUNDIT,6,0,HB,0) 
3470 CALL SOUND(T,L6,0,HHC,0) 
3480 CALL SOUNDIT,LG,0,HB,0) 
3490 CALL SOUND(T,6,0,HBF,0) 
3500 CALL SQUND(T,6,0,HA,0) 
3510 CALL SOUNDIT,LG,0,HBF,0) 
3520 CALL SOUND(T,LG,0,HB,0) 
3530 CALL SOUND(T,6,0,HHC,0) 
3540 CALL SOUND(T,6,0,HHCS,0) 
3550 CALL SOUNDIT,LG,0,HHD,0) 
3540 CALL SQUNDIT,LG,0,HMEF,0) 
3570 CALL SOUND(T,6,0,HHE,0) 
5590 CALL SOUNDIT,6,0,HHF,0) 
3590 REN 27 

3600 CALL SOUNDIT,LE, 0, HHE,0) 
3610 CALL SOUNDIT,LE, 0, HHEF,01 
3620 CALL SOUND(T,E,0,HHD,0) 


3650 CALL SOUNDIT,LE,0, HHCS,0) 
3660 CALL SOUNDIT,E,0,HHC,0) 

3670 CALL SOUNDIT,E,0,HB,0) 
3690 CALL SOUNDIT,LE,O,HHC,0) 

3690 CALL SOUNDIT,LE,0,HB,0) 
3700 CALL SOUNDITG,0,4BF,0) 

3710 CALL SOUNDIT,E, 0, HA,0) 

3720 CALL SOUNDIT,LE,0,HGS,0) 

3730 CALL SOUNDIT,LE,0,H6,0) 

3740 CALL SOUNDIT,E,0,HFS,0) 

3750 CALL SQUNDIT,E,0,HF,0) 

3760 REN 28 

3770 FOR Y=1 T0 8 

3780 CALL SOUNDIT,LE, 0,HE,0) 

3790 CALL SOUND(T,LE,0,HF,0) 

3900 CALL SOUNDIT,E,0,HE,0) 

3810 CALL SOUND(T,E,0,HDS, 0) 

3920 NEIT Y 

3930 REN 34 

3940 CALL SOUNDIT,LE, 0, HE,0,HHE,0) 
3850 CALL SOUND(T,LE,0,E,0,HE,0) 
3860 CALL SOUNDIT,HE, 0, HHE,0,LE,0) 
3870 CALL SOUNDIT,HE,0,E,0,LE,0) 
3890 CALL SOUNDIT,HDS,0,MHDS,0,LDS,0) 
3890 CALL SOUNDIT,HDS,0,05,0,LDS,0) 
3900 CALL SOUNDIT,HE, 0, HHE,0,LD,0) 
3910 CALL SOUNDIT,HE,0,E,0,LD,0) 
3920 CALL SOUNDIT,HF,0,HHF,0,LDF,0) 
3930 CALL SOUND(T,F,0,HF,0,LDF,0) 
3940 CALL SOUNDIT,HFS,0,HHFS,0,LC,0) 
3950 CALL SOUNDIT,FS,0,kFS,0,LC,0) 
5960 CALL SOUNDIT,HG,0,HH6,0,LLB, 0) 
5970 CALL SOUND(T,6,0,H6,0,LLB,0) 
3990 CALL SOUNDIT,HGS,0,HH6S, 0, LLBF,0) 
3990 CALL SOUND(T,65,0,H6S,0,LLBF,0) 
4000 REM 35 

4010 CALL SOUNDIT,HA,0,HHA,0,LLA, 0) 
4020 CALL SOUNDIT,LLA,0,LA,0) 

4030 CALL SOUNDIT,LA,0,HA,0) 

4040 CALL SOUNDAT,LA,0,A,0) 

4050 CALL SOUND(T,LC,0,HC,0) 

4060 CALL SOUND(T,LC,0,C,0) 

4070 CALL SOUNDIT,LD, 0, HD, 0) 

4080 CALL SOUNDIT,LD,0,0,0) 

4090 CALL SOUNDIT,LDS,0,HDS, 01 
4100 CALL SOUND(T,LDS,0,DS,0) 

4110 IF 2=6 THEN 4200 

4120 CALL SOUND(T,LE,0,HE,0) 

4130 CALL SOUNDIT,LE,0,E,0) 

4140 CALL SOUNDIT,LC,0,HC,0) 

4150 CALL SOUNDIT,LC,0,C,0) 

4160 CALL SOUND(T,LE,0,HE,0) 

4170 CALL SOUNDIT,LE,0,E,0) 

4190 1=6 

4190 GOTO 4000 

1200 CALL SOUNDIT,LE, 0, HHE, 0) 

4210 CALL SOUNDIT,LE,0,HE,0) 

4220 CALL SOUND(T,LC,0,HME,0) 

4230 CALL SOUNDIT,LC,0,HE,0) 

4240 CALL SOUNDIT,LE,0, HHC,0) 

4250 CALL SOUNDIT,LE,0,HC,0) 

4260 GOTO 1330 

4270 END 


10 CALL CLEM 

20 DIN ACISI 

30 CFO=2 

40 CPAS4 

50 CPI=16 

60 CRI=12 

70 CSC=10 

80 FOR I=1 108 

90 CALL COLOR(I,CSC,CFO) 

100 NEIT I 

110 CALL COLOR(9,CPA,CFO) 

120 CALL COLOR(10,CPI,CFO) 

130 CALL COLOR(11,CRI,CFO) 

140 CALL COLOR(12,CRI,CFO) 

150 CALL SCREEN(CFO) 

160 CALL CHAR(96, *00183C7E7E7E3C18") 

170 CALL CHAR(I04, *0000181818000000*) 
180 CALL CHAR(112,"0101010101010101") 
190 CALL CHAR(113, "8000808080808080*) 
200 CALL CHAR(I1A,“FF00000000000000") 
210 CALL CHAR(115,*0100000000000000") 
220 CALL CHARII16, "8000000000000000") 
230 CALL CHAR(117,*0008080808080808") 
240 CALL CHAR(118, "FFOF070301000000") 
250 CALL CHAR(119, *FFFFFFFFFF000000*) 
260 CALL CHAR(120, *FFFOE0CO80000000") 
270 CALL VCHAR(1,2,112,23) 

280 CALL VCHAR(1,32,113,23) 

200 CALL HCHAR(1,3, 114,29) 

300 CALL HCHAR(24,3,114,29) 

310 CALL HCHAR(24,2,115) 

320 CALL HCHAR(24,32, 116) 

330 FOR V=4 TO 30 STEP 2 

340 CALL VCHAR(17,4,117,7) 

341 CALL SOUND(20,1000,2) 

350 NEIT Y 

360 CALL HCHAR(1,16, 119) 

570 CALL HCHAR(1,17,119) 

380 CALL HCHAR(1, 19,120) 

390 FOR R=3 T0 16 

400 FOR C=20-R TO Re14 STEP 2 

410 CALL HCHAR(R,C, 104) 

420 NEIT € 

421 CALL SOUND(20,900,2) 

430 NEIT R 

440 A$="0304PROBABILITI* 

450 GOSUB 10000 


PROBABILITA 


720 CALL HCHAR(R-1,C+1,32) 
730 GOTO 760 

740 C=CH 

750 CALL HCHAR(R-1,C-1,32) 
760 IF R=16 THEN 800 ELSE 770 
770 CALL SOUND{20,500,2) 
780 CALL HCHAR(R,C,96) 

781 FOR TE=1 TO 30 

782 NEXT TE 

790 GTO 600 

800 CALL HCHAR(R,C,96) 

810 CONT=C/2-.5 

820 IF AICONTI=7 THEN 830 ELSE 940 
930 AS="0323FINE !* 

940 GOSUB 10000 

SO CALL SOUND(100, 440,2) 
860 CALL SOUND(100,550,2) 
870 CALL SOUND(100, 440,2) 
880 CALL SOUND(100, 660,2) 
890 CALL S0UND(100, 80,2) 
900 FOR T=1 T0 1500 

910 NEITT 

920 CALL HCHAR(3,4,32,6) 
930 GOTO 440 

940 FOR I=1 TO 7-A(CONT) 
950 CALL HCHAR(R+1-1,C,32) 
960 CALL HCHAR(R+1,C,96) 
970 WEIT I 

980 CALL SQUND(20,500,2) 
990 AICONT)=A(CONT) #1 

1000 N=Nt1 

1010 GOTO 420 

10000 REN -SUBRUOTINE PRINT AT- 
10010 R$=SEG8(A$,1,2) 
10020 C$=SEG$(A$,3,2) 
10030 RI=VAL (R$) 

10040 CI=VAL(CS1 

10050 FOR L=5 TO LEN(A$) 
10060 AISASCISEGS(AS,L,1)) 
10070 CALL HCHAR(RI,CH,AI,1) 
10080 CI=CI+1 

10090 NENT L 

10100 RETURN 


451 CALL SOUND{100,440,2) 
452 CALL SOUNO(100,650,2) 
453 CALL SOUND(100,550,2) 
460 A$="0319PRESS ANY KEY® 
470 GOSUB 10000 

471 CALL SOUND(100,440,2) 
472 CALL SOUNDI100,550,2) 
473 CALL S0UND(100,440,2) 
474 CALL SOUND(100,660,2) 
475 CALL S0UND(100,880,2) 
480 CALL KEY(0,K,5) 

490 IF S=0 THEN 490 

491 CALL SCUND{100,600,2) 
492 CALL SOUND{100,1000,2) 
493 A$="05240K !!° 

494 GOSUB 10000 

495 CALL SOUND(110,600,2) 
500 FOR I=1 TO 15 

510 A{I)=0 

520 NEXT I 

S30 FOR V=3 TO 31 STEP 2 
540 CALL VCHAR(16,V,32,8) 
550 NEXT V 

560 CALL HCHAR(3,4,32,11) 
970 CALL HCHAR(3,19,32,13) 
571 CALL HCHAR(5,24,32,5) 
380 A$="0304N. "* 

590 GOSUB 10000 

500 N=1 

610 RANDONIZE 

620 A$="0307"ESTR$(N) 

630 GOSUB 10000 

b40 R=2 

650 C=17 

651 RANDOMIZE 

660 CALL SOUND(100,440,2) 
661 CALL SOUND(100, 660,2) 
662 CALL SOUND(100,550,2) 
670 CALL HCHAR{R,C,96) 
680 D=INT(24RND) +1 

690 R=Rt1 

200 IF D=1 THEN 710 ELSE 740 
710 C=C-1 


10 REN FRANCONPUTER CLUB VICENZA 
20 REN 

30 REN 

40 REN STATISTICA 

100 CALL CLEAR 

110 REN PROGRAMMA DI STATISTICA ISTOGRAFICA BY O.P.VI. 

120 PRINT *PROGRANNI"::STATISTICI":"CON IL SISTEN 
Ai:'ISTOGRAFICO” 


150 AZ$="PRENI LA BARRA SPAZIATRICE © PER CONTINUARE" 2 
140 PRINT ::::::A2$ ® 
150 CALL KEY(O,KEY,STA) | 
160 IF STA=0 THEN 150 n E) 
170 CALL CLEAR Di n 


180 PRINT "LISTA DEI PROGR AMN I":"CODICE*;" NONE PROGRAMNA* 

190 PRINT :1;" GRAFICA COORDINATE X Y°:TAB(7); "POS. 4 VALORI DI 1":TAB(7);*POS. 
2 VALORI DI Y° 

200 PRINT :25° GRAFICA DI CONFRONTO*:TAB(7);*10 GRUPPI PRINA/DOPO":TAB(7);"20 
SRUPPI* 

210 PRINT :3;° GRAFICA DI CONFRONTO":TAB(7);*8 GRUPPI SU DUE":TAB(7); “SITUAZION 
I OPPOSTE" 

220 PRINT :4;" GRAFICO DI CONFRONTO": TAB(7)5*5 GRUPPI IN°:TAB(7)5 "DUE PORZIONI 
DEL 1001" 

230 PRINT :55° GRAFICO DEL:TAB(7);"SI NO NON SO" 

240 AI$="PRENI LA BARRA" 

250 PRINT :A2$ 

260 CALL KEYIO,KEY,STA) 

270 IF STA=0 THEN 260 

280 CALL CLEAR 

290 PRINT "SCRIVI IL MO, DI CODICE *:s*PER IL PROGRANNA SCELTO*::"I0P0 PREMI AS 
TO ENTER": 

300 PRINT "PER FERIRE IL PROGRANNA*: “PREMI INSIEME IL TASTO “ENTER E 4/CLEAR' 


310 PRINT "QUANDO IL GRAFICO FINISCE": "PER TORNARE ALLA LISTA": "BASTA CHE PRENI* 
:"LA BARRA SPAZIATRICE*:: 

320 INPUT AX 

330 ON AX GOSUB 340,410,470,530,590 

340 CALL CLEAR 

350 PRINT "= DA 0A 100%::"I= DA O 0A 50%::"I= DA #I00A -100"::" 
I= DA +#50A8 - 0": 

S60 PRINT :"Y= DA 0A G'::"Y=DA 77À 94 

370 PRINT ::"I VALORI DI I Y POSSONO ": "ESSERE CONBINATI":: 

380 PRINT “COD.I CONTINUA":"COD.2 RITORNA LISTA": 

390 INPUT AY 

400 ON AY GOSUB 660,170 

410 CALL CLEAR 

420 PRINT “PUO FARE IL CONFRONTO FRA"::"10 GRUPPI COM DUE SITUAZIONI": : "TIPO PRI 

Na/DOPo* 

430 PRINT : "IMPORT / EXPORT®:::"20 GRUPPI " 

440 PRINT ::"COD.I CONTINUA"::*COD.2 RITORNA LISTA":: 

450 INPUT AY 

460 ON AY GOSUB 1590,170 

470 CALL CLEAR 

480 PRINT "GRAFICA DI CONFRONTO*:: "TIPO SPESA CONTO GUADAGNO":: "CONSUMO CONTRO P 

RODUZIONE":: 

490 PRINT "CIQE” DUE SVILUPPI DI"::"UNA STESSA SITUAZIONE "::"IIILII 000%:" 11 
000000°:* 10° 

500 PRINT " 11111 0000000":::"COD.I CONTINUA"::"COD.2 RITORNA LISTA":: 

510 INPUT AY 

520 ON AY GOSUB 1980,170 

530 CALL CLEAR 

940 PRINT "CONFRONTO DI 5 GRUPPI*::*SU UNO STESSO TENA NA"::"CHE LA SONNA DELLE 

PER-"::*CENTUALI DA IL 1002":: 

550 PRINT * TIPO 1111111100*:* 1111000000": * 1000000000" 

540 PRINT * 1111111000":" 1111100000”::::"COD.I CONTINUA"::"C0D.2 RI 


T30 INPUT "VALORE COD. XY ":1 


740 PRINT»: 


TORNA LISTA"::: 


MS 





570 INPUT AY 


750 INPUT "VALORE COD. Y_":Y 


760 CALL CLEAR 


580 OM AY GOSUE 2410,170 


590 CALL CLEAR 


Tecnico sflientifico 


770 PRINT "SCEGLI 8 VALORI IN CODICE":"PER DARE L'ALTEZZA ALLE":"8 COLONNE ISTOG 


RAFICHE": "CODICE ALTEZZA": 


600 PRINT " CONFRONTO STATISTICO SU "::"TRE DONANDE SI NO NON 50"::"CON UNA SUDO 


IVISIONE":: 


Educativd 


780 ON 1 GOSUB 790,790,840,840 


PENSIONA 


LAVORATORI*:" 


610 PRINT "PER 4 TIPO DI PERSONE"::"ES. STUDENTI*:* 
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:°C0D.1 CONTINUA"::"COD.2 RITORNA LISTA"::: 
710 PRINT “SCELTA DEI VALORI DA DARE": "ALLE COORDINATE X E Y":::"1 1 


«= & 

ERE 33 
_sRaGiziza 
- 838335358 


890 IF STA=0 THEN 890 


900 CALL CLEAR 


910 DIN A{G) 


-80 -40"::"10 


860 PRINT :" 8 = 40 20%" 19= -70 -35%::* 9= 3015%" 20 


20 10%" 21 = -90 -45° 


dA 50 


720 PRINT ::°3 1= DA +100 A -100%::"4 13 DA + 50 A - 50":::"1 Y 


M 
125 DONA 


100%::"2 I 


0h ®' 


870 PRINT :"11 = 10 5*;" 22=-100 -50": "PREMI LA BARRA" 


120 FOR K=1 TO 8 1550 DATA 16,152,5,15,144,7,14,136,13,13,128,11,12,120,6,11,112,10,10,104,14,9,9 
930 INPUT "COD. ALTEZIA = ":A(K) 6,12 


940 NEIT K 1560 DATA 16,152,5,13,129,11,16,144,7,14,136,13,16,152,5,10,104,14,11,112,10,10, 
950 CALL CLEAR 104,14 

960 ON I GOSUB 970,1020,1070,1110 1570 DATA 15,144,7,13,128,11,16,152,5,15,144,7 

970 FOR T=100 TO 0 STEP -10 1580 GOTO 1580 

980 PRINT 1590 CALL CLEAR 

990 PRINT T 1600 PRINT "CONFRONTO STATISTICO FRA"::"10 GRUPPI":*20 GRUPPI":: "NONE NASSINO 6 
1000 NEIT T LETTERE":::"SE SCEGLI IL GRUPPO" 

1010 GOTO 1140 1610 PRINT "DA 10,METTI I DOPPI APICI*:"CIOE "* OGNI SECONDO NONE" 

1020 FOR T=50 TO 0 STEP -5 1620 PRINT “RICORDATI DI METTERE LA":"VIRGOLA TRA I DATI*::::"COD. 1 GRUPPO 10%: 
1030 PRINT :"COD. 2 GRUPPO 20%::: 

1040 PRINT T 1630 INPUT "COD. = ":1 

1050 NEIT T 1640 CALL CLEAR 

1060 GOTO 1140 1650 ON I GOSUB 1660, 1690 

1070 FOR T=100 TO -100 STEP -10 1660 PRINT "SCRIVI IL NONE DEL':"PRINA E DOPO NEL CONFRONTO": "NAX, 10 CARATTERI" 
1080 PRINT T " 

1090 NEXT T 1670 INPUT "PRINA *:C$ 


1100 GOTO 1140 1680 INPUT "DOPO ":D$ 













1110 FOR T=50 TO -50 STEP -5 1690 CALL CLEAR 
{120 PRINT 1700 PRINT “SCELTA DEL CODICE PER I": *RAPPORTI DI TABELLA*:::" COD, 20 = MAX 100 
1130 WENT T ue meli 
dici ianegibinei Lee I7I0 PRINT "45/3 MAL 00% i" 253 MAL 702%:" 353 MI 500% 
1150 PRINT "0 1 2385/6078" Le gpenar doris 
HB RIO Lie 1720 INPUT “COD. = “iv 
DITO PRINT" 77/78/79 8081 82.83 84" 1730 CALL CLEAR 
ME RERTa 1740 PRINT *SCRIVI IL NOM, VIRGOLA": "PRINO PERCENTO SENZA IL 2°::"NONE NAI 6 LET 
1190 CALL HCHAR(Q,6,41,24) TRE": 
1200 NEIT 1750 DIN A6(20),8(20) 
1210 ON X GOSUB 1230,1230,1220,1220 {760 FOR K=1 TO 20 
1220 CALL HCHAR(12,6, 40,24) 1770 INPUT "NDME,I = *:A60K),B(K) 
1230 ON X GOSUB 1240, 1240, 1340, 1340 1790 NEIT K 2200 FOR L=M TO N 
1240 F=6 1790 CALL CLEAR 2210 CALL HCHAR(L,2,128,Y) 
1250 FOR K=1 TO 8 1800 FOR W=1 TO 20 2220 NEIT L 
1260 READ L,M,N 1810 PRINT SEGS(AS(N), 1,6); TAB(26);B(H) 2230 85843 
1270 FOR E=ACK)TO 22 1820 NEIT hi 2240 N=Nt3 
1280 CALL COLORIL,N,M) 1830 ON I GOSUB 1840, 1950 2250 NENT @ 
1290 CALL HCHARGE,F,M,3) 1840 PRINT :"SPIEG. 1 RIGA ";SEG$(C$,1,10):" 2 RIGA "5E6$(08,1,10) | 2260 #2 
1300 NEXT E 1850 151 2270 N53 
1310 F=F+3 1860 FOR 051 TO 20 2280 FOR 051 T08 
2070 DIN P8(81,118),R(8) 
1320 NEIT K 1870 H=Y#B(0)/100 2080 FOR G=1 TO 8 Li Di 
1330 GOTO 1550 1880 READ L,N,N . za 
90 INPUT *MONE, 12,22 = “:PS(0),1(0),R(0) 

1340 F3é 1890 CALL COLOR(L,A,N) 0 mie di 2310 CALL HCHAR(H,23,136,W) 
1550 FOR K5i 10 8 1900 CALL HCHAR(Z,10,M,H) | 110 CALL CLEAR 2520 NEIT K 
n epr THEN 1390 dui A00: FRIDA DI Gi 

î 1920 NEIT @ 2130 PRINT :P8(0);TAB(12);1(0):TAB(25);R(0):: dal 
1360 IF A(K12=13 THEN 1450 1930 CALL KEYIO,KEY,STA) st hi ie 2350 NEXT 0 
1390 FOR S=A(K)TO 11 1940 IF STA=0 THEN 1930 29 2360 CALL KEY(0,KEY,STA) 
1400 CALL COLORCL,N,N) 1950 CALL CLEAR "; A 2370 IF STA=0 THEN 2360 
1410 CALL HCHAR(S,F,N,3) 1960 GOTO 170 sl i 2380 CALL CLEAR 
1420 NEIT S 1970 GOTO 1970 2180 Y=1(0)#1/100 2390 GOTO 170 
1430 F=F+3 1980 CALL CLEAR 2190 1=23-Y 2400 GOTO 2400 
1440 GOTO 1500 1990 CALL COLOR(13, 13,13) 2410 CALL CLEAR 
1450 FOR 5=13 TO AIK) 2000 CALL COLOR(14,11,11) 
1460 CALL COLORCL,M,M) 2010 PRINT "IN QUESTA GRAFICA POUI": "METTERE A CONFRONTO DUE":"SITUAZIONI DI UNO 
1470 CALL HCHAR(S,F,M,3) STESSO": “TEMA PER 8 VOLTE"::: 
eletta 2020 PRINT "CODICE RAPPORTO IN TABELLA"::"COD, 10 = NAI 1002"::"COD. 20 = MAI 5 
1490 F=F+3 dI: 
1500 NEIT K 2030 INPUT "COD. = ":1 
1510 CALL KEYIO,KEY, STA) 2040 CALL CLEAR 
1520 IF STA=0 THEN 1510 2050 PRINT "NONE PRIND I° SECONDO 2°::"RICODATI DI METTERE LA”: VIRGOLA TRA I DA 
1530 CALL CLEAR TP: 


1540 GOTO 170 2060 PRINT "NONE NAX 8 CARATTERI": 


2420 CALL COLOR(13,13,13) 

2430 CALL COLOR(14,11,11) 

2440 PRINT "SARFICA DI CONFRONTO FRA":*5 GRUPPI, CON DUE SCELTE":"DI PERCENTUALI 
s LA CUI": "SONNA DA IL 1007": 

2450 PRINT :"IL NONE DEL GRUPPO MAI.*:"10 LETTERE, SEGUITO DALLE": "DUE PERCENTUA 
LI" 

2460 PRINT ::: 

2470 DIM U$(5),C{5),0(5) 

2480 FOR K=1 705 

2490 INPUT "NOME, 12,21 = ":U$(K),C(K),D(K) 

2500 NEXT K 

2510 CALL CLEAR 

2520 PRINT *SCRIVI IL MOTIVO DELLA":"PRINA PERCENTUALE, CHE":"STA A SINISTRA, E 
IL MOTI-":*VO DELLA SECONDA * 

2530 PRINT "CHE STA A DESTRA":"MAX. 10 LETTERE"::: 

2540 INPUT "A SINISTRA *:E$ 

2550 PRINT»: 


2560 INPUT "A DESTRA *:F$ 
2570 CALL CLEAR 
2580 FOR K=1 T0 5 


2590 PRINT U$S(K);TABCIL); CK); TAB(26)5D0K) 


2600 PRINT ::: 
2610 NEXT K 
2620 PRINT 

2640 DIN V(5) 

2650 N33 

2660 N55 


2670 FOR K=1 705 
2680 ViK)=C{K)420/100 
2690 FOR T=M TO N 


2650 PRINT TAB(2);CHR$(128);CHR$(127);SEGS(ES,1,10);TAB(16);CHR$(136);CHR$(127); 


2910 PRINT “GRAFICA DI CONFRONTO FRA":4 GRUPPI CHE HANNO DATO":"LA STESSA RISPO 
STA":::"SI / NO / NON S0"::: 


2700 CALL HCHAR(T,13,128,V(K)) 2920 PRINT “SCRIVI IL CODICE DEL':"VALORE MASSINO DI 1*:::"COD. 20 = MAL, 1000" 


2710 NEXT T i = ML 70° 

2720 NeMH4 2930 PRINT "= 30= MAI. 602": 
2730 N=N#4 " 60 = MAL, 3or:: 

“ ci K 2940 INPUT "NONE COD, = ":1 
sur 2950 CALL CLEAR 


2070 DIN MAIA) 
2090 FOR KI TO 4 

2990 INPUT * SI = ":MA(K) 
3000 NEIT K 

5010 DIN NBCAI 
3020 FOR II TO 4 

3030 INPUT * ND = ":NB(K) 
5040 NEIT K 

3050 DIN 004) 

3060 FOR K=1 TO 4 

3070 INPUT "NON SO= *:00K) 
3090 NEIT K 

3090 CALL CLEAR 

3100 KS="FFFFFFFFFFFFFFFF* 
3110 CALL CHAR(120,kS) 
3120 FOR IKE1 TO 4 

3130 PRINT 

3140 PRINT TAB(24);MA(K) 
3150 NEIT K 

3160 FOR K51 TO A 

3170 PRIMI 

3180 PRINT TAB(24);NB(K) 
3190 NEIT K 

3200 FOR K=1 TO 4 

3210 PRINT 

3220 PRINT TAB(24);0(K) 
3230 NEIT K 


3240 B$="0000E3E3D303D3D3" 
3250 C$="C8CBCBCBC7C70000" 
3260 D$="00003F3F33333333* 
3270 E$="33333333BF8F0000" 
3280 F$="0000FFFFCOCOCOFF* 
3290 68="FF030303FFFF0000" 
3300 H$="0006060400000406" 
3310 L8="0606060606060000" 
3320 M$=*0000383934343434" 
3330 N$=*3232323231310000" 
3340 T8=*0000COCOCOCOCOCO* 
3350 0$="COCOCOCOCOCI0000* 
3360 CALL CHAR(121,88) 
3370 CALL CHAR(122,C8) 
3390 CALL CHAR(123,D8) 
3390 CALL CHAR(124,E8) 
3400 CALL CHAR(125,F6) 
3410 CALL CHAR(126,68) 
3420 CALL CHAR(112,H$) 
3430 CALL CHAR(113,LS) 
3440 CALL CHAR(114,M$) 
3450 CALL CHAR(115,N8) 
3460 CALL CHAR(116, 78) 

3470 CALL CHAR(117,08) 

3480 CALL HCHAR(G, 1,120,30) 
3490 CALL HCHARC16, 1, 120,30) 


39 = MAI. 


502":* 45 = MAL. 407”: 


2960 PRINT "SCRIVI UN VALORE POI": "PRENI IL TASTO ENTER"::: 


3500 CALL HCHAR(4,3,125) 
3510 CALL HCHAR(S,3,126) 
3520 CALL HCHAR(4,4,112) 
3530 CALL HCHAR(S,4,113) 
3540 CALL HCHAR(12,3,121) 
3550 CALL HCHAR(13,3,122) 
3560 CALL HCHAR(12,4,123) 
3570 CALL HCHAR(13,4,124) 
3580 CALL HCHAR(20,2,121) 
3590 CALL HCHAR(21,2,122) 
3600 CALL HCHAR(20,3,123) 
3610 CALL HCHAR(21,3,124) 
3620 CALL HCHAR(20,4,114) 
3630 CALL HCHAR(21,4,115) 
3640 CALL HCHAR(20,5,116) 
3650 CALL HCHAR(21,5,117) 
3660 CALL HCHAR(20,6,125) 
3670 CALL HCHAR(21,6,126) 
3690 CALL HCHAR(20,7,123) 
3690 CALL HCHAR(21,7,124) 
3700 151 

3710 FOR K=1 TO 4 

3720 H=X#MA(K)/100 

3730 READ DA,EA,FA 

3740 CALL COLOR(DA,FA,FA) 
3750 CALL HCHAR(2,8,EA,H) 
3760 1=242 


2770 FOR K=1 70 5 
2790 2=D(K)#20/100 

2790 FOR L=N TO N 

2800 CALL HCHARIL, (13+V(K)),136,0) 
2810 NENT L 

2820 NeMH4 

2030 N=NH4 

2040 NEXT K 

2850 CALL KEY(O,KEY,STA) 

2060 IF STA=0 THEN 2850 

2870 CALL CLEAR 

2890 GOTO 170 

2890 GOTO 2890 

2900 CALL CLEAR 


3770 NEIT K 

3780 RESTORE 

3790 1=9 

3800 FOR K=1 TO 4 

3810 H=19MB(K)/100 

3920 READ 6,L,1 

3830 CALL COLOR(G,T,T) 
3840 CALL HCHAR(2,9,L,H) 
3050 1=2+2 

3860 NEXT K 

3870 RESTORE 

3880 1217 

3090 FOR K31 TO 4 

3900 H=0(K)#1/100 

3910 READ W,P,0 

3920 CALL COLOR (W,0,0) 
3930 CALL HCHAR(Z,8,P,H) 
3940 13242 

3950 NEXT K 

3960 RESTORE 

3970 CALL KEY(O,KEY,STA) 
3980 IF STA=0 THEN 3970 
3990 CALL CLEAR 

4000 B0TO 170 

4010 GOTO 4010 
4020 STOP 





10 REM @FRANCOMPUTER CLUB VICENZA 
20 REM 

30 REM 

40 REM —IDOINEITAÀ” ALLO SPORT 
50 REM 

100 CALL CLEAR 

110 A$="I DONEITA"" 

120 Y=8 

150 X=7 

140 GOSUB 2720 

150 A$=S"ALLO" 

160 Y=ll 

170 X=11 

180 GOSUB 2720 


190 
200 
210 
220 
250 
240 
250 
260 
270 
280 
290 
300 
310 


A$="S P_ O RT." 
Y=14 

X=7 

GOSUB 2720 

FOR I=1 TO 500 

NEXT I 

CALL CLEAR 

A$="1 COME ESEGUIRE LA PROVA " 
Y=8 

X=4 

GOSUB 2720 

A$="2 TEST" 
Y=ll 


320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
4350 
440 
450 
460 
470 
480 
490 
500 
sio 
520 
530 
540 
550 
560 
570 
580 


GOSUB 2720 


A$="3 PER FINIRE " 
Y=14 
GOSUB 2720 


GOSUB 2790 
Q=0-48 
IF (Q«1)+(0>35)THEN 360 
ON G GO TO 400,1720,3140 
CALL CLEAR 
A$="La prova consiste nel salire " 
Y=l 
=2 
GOSUB 2720 
A$="e scendere un gradino alto " 
=2 
GOSUB 2720 
A$="40 o 50 cm. per 3 minuti. " 
Y=35 
GOSUB 2720 
A$="La scelta delle dimensioni " 
Y=4 
GOSUB 2720 
A$="del gradino dipende dal sesso " 
Y=5 
GOSUB 2720 
A$="e dalla statura del soggetto. " 
Y=6 








590 GOSUB 2720 

600 A$="Solitamente ci si comporta " 
610 Y=7 

620 GOSUB 2720 

6350 A$="cosi’:gradino di 50 cm. per " 
640 Y=8 

650 GOSUB 2720 

660 A$="soggetti di statura superiore " 
670 Y=9 

6890 GOSUB 2720 

690 A$="a cm. 170,gradino di 40 cm. " 
700 Y=10 

710 GOSUB 2720 

720 A$="per tutti gli altri. " 

750 Y=lt 

740 GOSUB 2720 

750 A$="Nei bambini si puo’ utilizza- " 
760 Y=12 

770 GOSUB 2720 

780 A$="re un pacchetto alto in modo " 
790 Y=13 

800 GOSUB 2720 

810 A$="tale che l’angolo formato dal- " 
820 Y=14 

830 GOSUB 2720 

840 A$="la coscia sul bacino, avendo " 
8950 Y=15 

860 GOSUB 2720 

870 A$="il piede poggiato sul pacchet- 
880 Y=16 

890 GOSUB 2720 

900 A$="to stesso sia il piu” possibi- 
910 Y=17 

920 GOSUB 2720 

950 A$="le vicino ai 90 gradi. " 

940 Y=18 

950 GOSUB 2720 

960 A$="Nella esecuzione del test e’ " 
970 Y=19 

980 GOSUB 2720 

990 A$="importante che il tronco ri- " 
1000 Y=20 

1010 GOSUB 2720 

1020 A$="manga eretto il piu’ possibile " 
10350 Y=21 

1040 GOSUB 2720 

1050 A$="affinche’ il lavoro che si " 
1060 Y=22 

1070 GOSUB 2720 

1080 A$="esegue contro la forza di gra- " 
1090 Y=23 

1100 GOSUB 2720 

1110 A$="vita’ Sia quantizzabile esat- " 
1120 Y=24 

11350 GOSUB 2720 

1140 FOR I=1 TO 700 

1150 NEXT I 

11650 CALL CLEAR 

1170 A$="tamente.Se lo scalino e’ alto " 
1180 Y=1 

1190 GOSUB 2720 

1200 A$="S0 cm. ogni parte del corpo " 
1210 Y=2 

1220 GOSUB 2720 
1230 A$="deve sollevarsi di S0 cm. " 


1240 Y=3 
1250 GOSUB 2720 
1260 A$="La velocita’ di ripetizione " 
1270 Y=4 
1280 GOSUB 2720 
1290 A$="deve essere tale che in 2 sec. 
13500 Y=5 
1310 GOSUB 2720 
13520 A$="la fase di salita e di disce- " 
1330 Y=6 
1340 GOSUB 2720 
1350 A$="sa deve essere completata. 
1360 Y=7 

1370 GOSUB 2720 

13580 A$="Di solito si conta 1-2-3-4 " 
1390 Y=8 

1400 GOSUB 2720 

1410 A$="(1-2 salita 5-4 discesa) " 
1420 Y=9 

1430 GOSUB 2720 

1440 A$8="e si ricomincia. 
1450 Y=10 

1450 GOSUB 2720 

1470 A$="Al1 termine del test devi se- " 
1480 Y=li 

1450 GISUB 2720 

1500 As="dert1,aspettare 1 minuto " 
1510 Y=12 

1520 GOSUB 2720 

15350 A$="e quindi contare le tue pul- 
1540 Y=13 

1550 GUSUB 2720 

1560 A#="Sazioni per 30 secondi. 
1570 Y=14 

1580 GOSUB 2720 

590 A#$="Sono queste pulsazioni che " 
1500 Y=15 

1510 GOSUB 2720 

16520 A$="introdote ed elaborate ti 
15350 Y=16 

1640 GOSUB 2720 

1650 A%$="daranno il tuo stato di forma. 
1560 Y=17 

1570 GOSUB 2720 

1630 A$="FREMI UN TASTO ' 
1690 Y=22 

1700 GOSUB 2720 

1710 GOSUB 2790 

1720 CALL CLEAR 

1730 A$="P RONTI ?" 
1740 Y=10 

1750 X=9 

1760 GOSUB 2720 

1770 GOSUB 2790 

1780 CALL CLEAR 

1790 A$="V I A tt!" 
1800 GOSUB 2720 

1810 FOR I=1 TO 500 

1820 NEXT I 

18350 FOR I=1 TO 90 

1840 CALL SOUND (820,435,1) 
1850 CALL SOUND (820, 736,1) 
1860 NEXT I 

1870 FOR I=1 TO S00 


” 


1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 


Li 
2240 
2250 
2260 
2270 
2280 
2290 
23500 
2510 
2320 
2350 
23540 
23550 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 


NEXT I 

GOSUB 1910 

GO TO 1990 

CALL CLEAR 

AS=" SOT 0 Pon" 
GOSUB 2720 

FOR I=1 TO 400 

IF I>3 THEN 1970 

CALL SOUND(100,333,1) 
NEXT I 

RETURN 

CALL CLEAR 

A$="...E ADESSO... " 
Y=8 
X=6 
GOSUB 
A$="S 
Y=12 
x=10 
GOSUB 2720 

FOR I=1 TO 800 

NEXT I 

FOR I=1 TO 20 

CALL SOUND (2460, 940,4) 

NEXT I 

FOR I=1 TO 1200 

NEXT I 

CALL CLEAR 

AS="C O N T A" 

x=8 

GOSUB 2720 

FOR I=1 TO 300 

NEXT I 

FOR I=1 TO 10 

CALL SOUND (2460, 444,4) 

NEXT I 

FOR I=1 TO 1200 

NEXT I 

GOSUB 1910 

CALL CLEAR 
A$="PULSAZIONI?" 
X=S 

GOSUB 2720 

INPUT P 

IRI=180#100/ (5. 5*P) 

CALL CLEAR 

PRINT "INDICE I. 
Y=10 

IF PK=80 THEN 
A$="P ERIC 
x=7 
GOSUB 
GOSUB 
GOSUB 2790 

GO TO 250 

IF P<=65 THEN 
AS="N ON SS 
X=2 

GOSUB 2720 
GOSUB 3010 

GO TO 2410 

IF P<=54 THEN 2 
A$="SUFFIC 
X=4 


2720 
IEDITI" 


R. I. "sINT(IRI*10)/10 
2430 


oLo" 
2720 
2960 


2490 
HWFPICIENTFE" 


2700 
2710 
2720 
27350 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2930 
28940 
28950 
2860 
2870 
2980 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3150 
3140 


0 A$="O TT I M 


GOSUB 2720 

GOSUB 2890 

GO TO 2410 

IF P<=40 THEN 2610 
A$=s"D ISCRETO" 
X=7 

GOSUB 2720 

GOSUB 3070 


5 G0 TO 2410 


IF P<=32 THEN 2670 


O A$="B U O N 0" 


x=9 
GOSUB 2720 

GOSUB 2820 

GO TO 2410 

0 LL] 
X=7 

GOSUB 2720 

GOSUB 2820 

GO TO 2410 

Z=LEN(A$) 

FOR T=1 TO 2-1 
A1$=SEG$ (A$,T,Z-T) 
CALL HCHAR(Y,X+T,ASC(A1$)) 
NEXT T 

CALL SOUND(100,654,1) 
RETURN 

CALL KEY(0,0,W) 

IF W=0 THEN 2790 
RETURN 

FOR I=1 TO S 

CALL SOUND(100,534,2) 
CALL SOUND(100,324,2) 
CALL SOUND(100,536,2) 
CALL SOUND(100,867,2) 
NEXT I 

RETURN 

FOR I=1 TD 5 

CALL SOUND (90,534,2) 
CALL SOUND(80,321,2) 
CALL SOUND (80, 213,2) 
CALL SOUND (80,413,2) 
NEXT I 

RETURN 

FOR I=1 TO 30 

CALL SOUND(-100, 222,2) 
CALL SOUND(-100, 111,2) 
NEXT I 

RETURN 

FOR I=1 TO 7 

CALL SOUND(100, 666,2) 
CALL SOUND(100, 656,2) 
CALL SOUND(100,645,2) 
NEXT I 

RETURN 

FOR I=1 TO 4 

CALL SOUND(500,878,2) 
CALL SOUND (500,838,2) 
CALL SOUND (500,800, 2) 
CALL SOUND (500, 700,2) 
NEXT I 

RETURN 

END 


110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
390 
390 
400 
410 
420 
450 
440 
450 
460 
470 
480 





REM TI-MANAGER 


REM 


REM ROCCHI ALBERTO 


REM 


REM GS 13-18 27/2/84 


REM 
REM -------- 
CALL CLEAR 


! DIMENSIONAMENTO 


CNT=1 :: TURNO=0 :: TAX,DIV=5 :: SP=9 


OPTION BASE 1 
DIM A(4,11),B 
CALL SCREEN(5 
CALL CHAR(96, 
CALL CHAR(97, 
CALL CHAR(98, 
CALL CHAR(99, 
CALL CHAR(100 
CALL CHARC101 


CALL CHAR(102, 


CALL CHAR(103 


CALL CHAR(104, 
CALL CHAR(112, 
CALL CHAR(113, 
CALL CHAR(114, 
CALL CHAR(115, 


CALL CHAR(116, 
CALL CHAR(117 
CALL CHAR(118, 


CALL CHAR(119, 
CALL CHAR(120, 
CALL CHAR(121, 


CALL CHAR(122 
CALL CHAR(127, 


CALL Cra o to 
: READ A$ :: DISPLAY AT(I,1):A$ :: NEXT I 


FOR I=2 TO 19 


(4,2),C(8,3),CC(8),D(4,8),E(6,4),NOM$(4) ,AZ$(8), COL (4) 


) 
"0101010101010101") 
"00000000000000FF ") 
"FF00000000000000" ) 
"8080808080808080" ) 
s "FFO1010101010101") 
s "O1010101010101FF") 
"80808080808080FF") 
s ‘"FF80B08080808080") 
"00") 
"01792525392525FF") 
"01394541414145FF") 
"01792525252525FF") 
"FF835BFBF87BFBF83") 
"013D41415D4545FF") 
s "FFBFBFBFBFBFBF83") 
"01794545794141FF") 
"O17DILL1111I11FF") 
"FF87DBDBC7DBDB87") 
"FFQSEFEFEFEFEFEF") 
s "003C7E7E7E7E5C00") 
"FFFFFFFFFFFFFFFF") 


490 CALL VCHAR(21,4, 104,4) 

500 FOR AA=1 TO 4 :: READ COLCARA):: CALL SPRITE(£AA, 122, COL (AA), 152+8*AA+1,25):: 
NEXT AA 

510 FOR AA=5 TO 8:: XX=10-(AA>6)#8 :: YY=97-(AA=8)#*8-(AA=6)#*8 :: CIi=COL(AA-4):: 
CALL SPRITE(£AA,122,C1,XX,YY):: NEXT AA 

520 DISPLAY AT(19,14): "NOME GIOCATORI?" 

530 ACCEPT AT(20+CNT, 4) VALIDATE (UALPHA) BEEP: NOM$ (CNT) 

540 IF NOM$(CNT)="" THEN 560 

550 CNT=CNT+1 :: IF CNT=5 THEN 560 ELSE 530 

560 CALL HCHAR(19,16,32,16):: IF CNT=5 THEN 580 

570 FOR DL=4 TO CNT STEP -1 :: CALL DELSPRITE(£DL):: CALL DELSPRITE(£(DL+4)):: C 
ALL HCHAR(20+DL,4,32):: NEXT DL 

580 DISPLAY AT(1,1):" TI-MANAGER AZIONI N. COSTO" 

590 TGC=CNT-1 :: FOR AAS1 TO 8:=:: READ AZ$(AA),C(AA,2),C(AA,1),C(AA,3):: CCCAA)= 
C(AA, 2):: DISPLAY AT(AA+1,13):USING "££££LEF £££ £E££":AZ$IAA),C(AA, 1),C(AA,2):: 
NEXT AA 

600 FOR AA=1 TO CNT-1 :: AC{AA,9)=5000 :: NEXT AA 

610 FOR AA=1 TO é::: READ E(AR,2),E(RAA,4):: NEXT AA 

620 IMAGE $£££££ ££££f F£££F 

630 DISPLAY AT(20,14):"CAPIT. AZ. BC." 

640 ! 

650 ! CICLO 

660 ! 

670 FOR AA=1 TO CNT-1 

680 FOR BB=1 TO 8 :: TOT=TOT+A(AA,BB)*C(BB,2):: NEXT BE 

690 DISPLAY AT(20+AA,12):USING 620:A(AA,9),TOT,B(AA,1) 

700 TOT=0 

710 NEXT AA 

720 RANDOMIZE 

730 FOR NGC=1 TO TGC 

740 IF A(NGC,11)=1 THEN 840 

750 DISPLAY AT(7,4)SIZE(7): "TOCCA A" :: DISPLAY AT(9,3)SIZE(8):NOM$ (NGC) 

760 AVN=INT(RND*3)+1 :: A(NGC,10)=A(NGC, 10) +AVN :: IF A(NGC,10)>20 THEN A(NGC,10 
)=A{NGC, 10) -20 

770 K=A(NGC, 10) :: XX=4+3*(15-K)#(K<15)*(K>9)-3#(K<6)xK+t15x{(K>5)#(K<C10)ss X=BxX (XX 
-2)-8* (NGC>2)-6 . 

780 YY=2-10%*(K<6)+2#*(10-K)#(K<10)*{(K>5)-2#(K>15)#(K-15):: Y=8X(YY-1)-6#(NGC=2)-6 
*(NGC=4)+10 

790 SR=NGC+4 

800 CALL LOCATE (£SR,X,Y) 

810 ON A(NGC, 10) G0T0 1210, 1870, 1000, 1410, 2060, 1870, 1210, 1480, 1870, 1680, 1210, 1870 
, 1000, 1600, 2150, 1410, 1870, 1000, 1870, 1780 

820 CALL KEY{(0,K,S):: IF S=0 THEN 820 

830 ! 

840 ' AGGIORNAMENTO 

850 ! 

860 _ Z=0 :: IF A(NGC,9)<0 THEN B(NGC,2)=B(NGC,2)+ABS(A(NGC,9)):: ANGC,9)=0 

870 FOR BB=1 TO 8 :: TOT=TOT+A(NGC,BB)*C(BB,2):: NEXT BB :: DISPLAY AT(20+NGC, 12 
) USING 620:A(NGC,9), TOT, B(NGC,1)-B(NGC,2):: TOT=0 

880 DISPLAY AT(11,3)SIZE(7):USING "DIV ££%":DIV :: DISPLAY AT(13,3)SIZE(7):USING 
STAX ££E":TAX 

890 W=0 :: FOR BB=1 TO 8 :: DISPLAY AT(BB+1,21):USING "£££ ££££":C(BB,1),C(BB,2) 
ss NEXT BB 

900 NEXT NGC 

910 TURNO=TURNO+1 

920 FOR BB=1 TO TGC :: IF A(BB,11)=1 THEN 950 ELSE B(BB,1)=B(BB,1)+B(BB,1)*(1/20 

0):: B(BB,2)=B(BB,2)+B(BB,2)*(1/150) 

930 TTZ=0 :: FOR C3=1 TO 8 :: TTZ=TTZ+A(BB,C3)*C(C3,2):: NEXT C3 

940 IF A(BB,9)+B(BB, 1)<«B(BB, 2) THEN 970 ELSE IF A(BB,9)+B(BB, 1)+TTZ-B(BB, 2) >20000 
THEN 980 

950 NEXT BB 

9650 GOTO 670 

970 A(BB,11)=1 :: DISPLAY AT(11,14):NOM$(BB);" FUORI" :: CALL DELSPRITE(£BB, £BB+ 
4):: GOTO 950 


980 DISPLAY AT(11,14): "VINCE "sNOM$(BB):: DISPLAY AT(12,14):USING "CON $££££££": 
A(BB,9)+B(BB, 1)+TTZ-B(BB, 2)31 FOR TMM=1 TO 5000 :: NEXT TMM 1: END 

990 ! 

1000 '! BANCA 

1010 |! 

1020 CALL TCHAR(10,15,32,9,18) 

1030 DISPLAY AT(11,15): "BANCA: SCELTA ?" :: DISPLAY AT(12,15): "SITUAZIONE >1" :: 
DISPLAY AT(13,15): "DEPOSITO  >2" :: DISPLAY AT(14,15): "PRELIEVO  >3" 

1040 DISPLAY AT(15,15):"FINANZIAM. >4" :: DISPLAY AT(16,15): "PASSI >s” 

1050 ACCEPT AT(16,28)VALIDATE("12345")SIZE(1):SC :: CALL TCHAR(10,15,32,9,18):: 
ON SC GOTO 1060, 1090, 1120, 1150, 840 

1060 DISPLAY AT(14,15): "SITUAZIONE" :: DISPLAY AT(16,15):USING "CAP.DEP. $££££": 
B(NGC, 1) 

1070 DISPLAY AT(17,15):USING "PRESTITO $££££":B(NGC,2):: IF B(NGC,1)>=B(NGC,2)TH 
EN DISPLAY AT(18,16):"IN ATTIVO" ELSE DISPLAY AT(18,16):"IN PASSIVO" 

1080 CALL KEY(0,K,S):: IF S=0 THEN 1080 ELSE CALL TCHAR(10,15,32,9,18):: GOTO 10. 
00 

1090 DISPLAY AT(14,15): "QUANTO VUOI" :: DISPLAY AT(15,15):"DEPOSITARE?" :: ACCEP 
T AT(16,22):DEP 

1100 IF DEP>}A(NGC,9) THEN DEP=A(NGC,9) 

1110 B(NGC,1)=B(NGC, 1)+DEP :: A(NGC,9)=A(NGC,9)-DEP :: GOTO 1000 

1120 DISPLAY AT(14,15):"HAI IN BANCA" :: DISPLAY AT(15,15):USING "$ ££££":B(NGC, 
1):: DISPLAY AT(16,15):"PRELEVI?" :: ACCEPT AT(16,22)SIZE(4)VALIDATE (DIGIT) :PRL 
1130 IF PRL>B(NGC,1)THEN PRL=B(NGC,1) 

1140 B(NGC,1)=B(NGC, 1)-PRL :: A(NGC,9)=A(NGC,9)+PRL :: GOTO 1000 

1150 DISPLAY AT(14,15): "QUANTO TI" :: DISPLAY AT(15,15):"SERVE?MAX 2000" :: ACCE 
PT AT(16,22)SIZE(4)VALIDATE(DIGIT):FIN 

1160 IF Z=1 OR RND<.3 OR FIN>2000 OR A(NGC,9)<FIN OR B(NGC,2)>4000 THEN 1190 
1170 DISPLAY AT(18,15): "PRESTITO" :: DISPLAY AT(19,15): "ACCORDATO" :: CALL DELAY 
(500) i 

1180 Z=1 :: B(NGC,2)=B(NGC,2)+FIN :: A(NGC,9)=A(NGC,9)+FIN :: GOTO 1000 

1190 Z=1 :: DISPLAY AT(18,15): "PRESTITO NON" :: DISPLAY AT(19,15): "ACCORDATO" :: 
CALL DELAY(500):: GOTO 1000 

1200 ! 

1210 ! BORSA 

1220 | 

1230 RI=14 :: CALL TCHAR(10,15,32,9,18) 

1240 DISPLAY AT(11,15):"BORSA: SCELTA?" :: DISPLAY AT(12,15): "ACQUISTO >" 1: DI 
SPLAY AT(13,15): "VENDITA >2" :: DISPLAY AT(14,15): "PASSI 33" 

1250 ACCEPT AT(16,28)VALIDATE("123")SIZE(1):SC :: ON SC GOTO 1260,1330, 1390 

1260 CALL TCHAR(10,15,32,9,18):: DISPLAY AT(11,15):"QUALI AZIONI" :: DISPLAY AT( 
12,15): "VUOI ACQUIST.?" 

‘1270 DISPLAY AT(13,15):"AZ. NUM. SP." 

1280 ACCEPT AT(RI,16)VALIDATE("012345678")SIZE(1):SAZ :: IF SAZ=0 THEN 1210 

1290 DISPLAY AT(RI,23):"("5STR$(C(SAZ,1))5")" :: ACCEPT AT(RI,20)VALIDATE (DIGIT) 
SIZE(3):NAZ :: IF NAZ>C(SAZ, 1) THEN NAZ=C(SAZ,1) 

1300 IF NAZ#C(SAZ, 2) >A(NGC,9) THEN NAZ=INT(A(NGC, 9) /C(SAZ,2)) 

1310 SPS=NAZ#C(SAZ,2):: A(NGC,9)=A(NGC,9)-SPS :: ACINGC,SAZ)=A(NGC, SAZ)+NAZ :: CC 
(SAZ)=C(SAZ, 2)+C(SAZ,3)*NAZ :: C(SAZ,1)=C(SAZ,1)-NAZ 

1320 DISPLAY AT(RI,20):USING "£££ $££££":NAZ, SPS :: RI=RI+1 :: IF RI>17 THEN 121 
O ELSE 1280 

1330 CALL TCHAR(10,15,32,9,18):: RI=14 :: DISPLAY AT(11,15): "QUALI AZIONI" :: DI 
SPLAY AT(12,15):"VUDI VENDERE?" :: DISPLAY AT(13,15):"AZ. NUM. RIC." 

1340 ACCEPT AT(RI,16)VALIDATE("012345678")SIZE(1):SAV :: IF SAV=0 THEN 1390 

1350 IF A(NGC,SAV)=0 THEN 1340 

1360 DISPLAY AT(RI,23):"("5STRS(A(NGC,SAV));")" :: ACCEPT AT(RI, 20) VALIDATE (DIGI 
T)SIZE(3):NAV :: IF NAV>A(NGC, SAV) THEN NAV=A(NGC, SAV) 

1370 RIC=NAV#C(SAV,2):: DISPLAY AT(RI,20):USING "£££ $££££":NAV,RIC :: A(NGC,9)= 
A(NGC,9)+RIC :: RI=RI+1 :: C(SAV,1)=C(SAV, 1)+NAV :: CC(SAV)=C(SAV,2)-NAV*C(SAV,3 
) 

1380 AINGC, SAV)=A(NGC, SAV)-NAV :: IF A(NGC,SAV)=0 THEN D(NGC,SAV)=0 :: GOTO 1340 
ELSE IF RI>17 THEN 1210 ELSE 1340 

1390 FOR BB=1 TO 8 :: C(BB,2)=CC(BB):: NEXT BB :: GOTO 840 

1400 ! 


1410 ! TELEX 

1420 | 

1430 CALL TCHAR(10,15,32,9,18) 

1440 DISPLAY AT(11,15):"TELEX" :: DISPLAY AT(12,15): "BANCA $200 è1" :: DISPLAY 
AT(13,15):"BORSA $200 >2" :: DISPLAY AT(14,15): "PASSI 33" 

1450 ACCEPT AT(16,28)VALIDATE("123")SIZE(1):SC :: IF SC=1 OR SC=2 THEN A(NGC,9)= 
A(NGC, 9) -200 

1460 ON SC GOTO 1000,1210,840 

1470 ! 

1480 ! TASSE 

1490 | 

1500 CALL TCHAR(10,15,32,9,18) 

1510 CAP=0 :: DISPLAY AT(11,14): "TASSE" 

1520 FOR AA=1 TO 8 :: CAP=CAP+A(NGC,AA)*C(AA,2):: NEXT AA 

1530 FOR AA=1 TO 6 :: IF ECAA,1)=NGC THEN CAP=CAP+E(AA,2) 

1540 NEXT AA 

1550 CAP=CAP+A(NGC,9) 

1560 DISPLAY AT(12,14):"IL TUO CAPITALE" :: DISPLAY AT(13,14):USING "E” DI $££££ 
£":CAP 

1570 TS=CAP*TAX/100 :: DISPLAY AT(15,15):USING "TASSE $££££":TS :: A(NGC,9)=A(NG 
C,9)-TS 

1580 CALL DELAY(500):: GOTO 840 

1590 | 

1600 ! CONGIUNTURA 

1610 ! 

1620 CALL TCHAR(10,15,32,9,18) 

1630 FOR AA=1 TO 8 :: C(AA,2)=C(AA,2)+INT(C(AA,2)*(RND*25-50)/100):: NEXT AA 
1640 TAX=TAX+INT(RND*3-1):: DIV=DIV+INT(RND#3-1):: IF DIV<O THEN DIV=0 ELSE IF D 
IV>12 THEN DIV=12 

1650 DISPLAY AT(11,15):"CONGIUNTURA" :: DISPLAY AT(13,15): "DIV % "5DIV :: DISPLA 
Y AT(14,15): "TAX % "5TAX 

1660 CALL DELAY(500):: GOTO 840 

1670 ! 

1680 ! PAGAMENTO DEBITI 

1690 ! 

1700 CALL TCHAR(10,15,32,9,18) 

1710 DISPLAY AT(11,14):"PAGAM. DEBITI" :: IF B(NGC,2)=0 THEN 1750 

1720 DISPLAY AT(12,14):"HAI UN DEBITO" :: DISPLAY AT(13,14):"CON LA BANCA" :: DI 
SPLAY AT(14,14):USING "DI $££££":B(NGC,2) 

1730 A(NGC,9)=A(NGC,9)-B(NGC,2):: B(NGC,2)=0 :: IF A(NGC,9)<O THEN B(NGC,2)=ABS( 
A(NGC,9)):: DISPLAY AT(15,14): "DEVI PAGARE” :: DISPLAY AT(16,14):USING "ANCORA $ 
££££":B(NGC, 2) 

1740 GOTO 840 


1750 DISPLAY AT(11,14): "NON HAI DEBITI" :: DISPLAY AT(12,14): "CON LA BANCA" 
1760 CALL DELAY(500):: GOTO 840 

1770! 

1780 ‘ DIVIDENDI 

1790 ! 


1800 SOMMA=0 :: CALL TCHAR(10,15,32,9,18) 

1810 DISPLAY AT(12,14):"I DIVIDENDI" :: DISPLAY AT(13,14): "DELLE AZIONI" :: DISP 
LAY AT(14,14): "AMMONTANO A" 

1820 FOR AA=1 TO 8 :: IF D(NGC,AA)=0 THEN 1840 

1830 PER=TURNO-D(NGC, AA):: ZZ=C(AA,2)*(DIV/3000)*PER :: TOTL=TOTL+ZZ#*(A(NGC,AA)) 
3: D(NGC,AA)=TURNO 

1840 NEXT AA 

1850 DISPLAY AT(16,15):"$ "; SOMMA :: A(NGC,9)=A(NGC,9)+SOMMA :: CALL DELAY(500): 
: GOTO 840 

1860 ! 

1870 '! EDILIZIA 

1880 | 

1890 CALL TCHAR(10,15,32,9,18) 

1900 FOR AA=1 TO 6 :: IF A(NGC, 10)=E(AA,4)THEN 1920 

1910 NEXT AA 

1920 IF E(AA,1)=NGC THEN 1990 


1930 IF E(AA,1)<>0 THEN DISPLAY AT(11,14):"DEVI PAGARE" :: PGM=E(AA,2)/204E(AA,3 

):: DISPLAY AT(12,14):"$";PGM 

1940 IF E(AA,1)<>0 THEN A(NGC,9)=A(NGC,9)-PGM :: ACECAA,1),9)=A(E(AA,1),9)+PGM : 

: DISPLAY AT(13,14):"A "iNOM$(E(AA,1)):: CALL DELAY(500):: GOTO 840 

1950 IF E(AA,3)=0 THEN DISPLAY AT(11,14):"VUOI COMPRARE" :: DISPLAY AT(12,14):"$ 

"3E(AA,2)5"(S/N)" :: ACCEPT AT{16,28)VALIDATE("SN")SIZE(1):R$ 

1960 IF R$="N" THEN 840 ELSE A(NGC,9)=A(NGC,9)-E(AA,2):: E(AA,1)=NGC :: E(AA,3)= 

1 :: DISPLAY AT(XX,YY-1)SIZE(1):CHR$(127) 

1970 IF R$<>"N" THEN CALL SPRITE(£SP,122,COL(NGC),8*XX-7,8%*YY+1):: SP=SP+1 

1980 GOTO 840 

1990 IF E(AA,1)=NGC AND E(AA,3)=4 THEN 840 

2000 IF E(AA,1)=NGC THEN DISPLAY AT(10,14):"VUOI SALIRE" :: DISPLAY AT(11,14):"D 

I CATEGORIA?" :: DISPLAY AT(13,14):"<L> <G> <N>" 

2010 ACCEPT AT(16,28)VALIDATE("LGN")SIZE(1):SC$ :: IF SC$="N" THEN 840 ELSE IF S 

C$="L" AND E<(AA,3)<>2 THEN 2030 ELSE IF SC$="G" AND E(AA,3)<>3 THEN 2040 

2020 GOTO 2010 

2030 E(AA,3)=E(AA,3)+1 :: A(NGC,9)=A(NGC,9)-500 :: GOTO 840 

2040 E(AA,3)=E(AA,3)+2 :: A(NGC,9)=A(NGC,9)-500 :: GOTO 840 

2050 | 

2060 ! ELETTRICITA” ACQUE 

2070 ! 

2080 CALL TCHAR(10,15,32,9,18) 

2090 IF LC=0 THEN DISPLAY AT(11,14):"VUOI COMPRARE?" :: DISPLAY AT(12,14):"$1000 
(S/N)" :: ACCEPT AT(16,28)VALIDATE("SN")SIZE(1):R$ :: GOTO 2120 

2100 DISPLAY AT(11,14):"DEVI PAGARE" :: DISPLAY AT(12,14):"$300 A "sNOM$(LC):: 

(NGC,9)=A(NGC,9)-300 :: A(LC,9)=A(LC,9)+300 

2110 CALL DELAY(500):: GOTO 840 

2120 IF R$="N" THEN 840 ELSE A(NGC,9)=A(NGC,9)-1000 :: LC=NGC :: DISPLAY AT(XX,Y 

Y-1)SIZE(1):CHR$(127) 

2130 IF R$<>"N" THEN CALL SPRITE(£SF,122, COL (NGC) ,8*XX-7,8*YY+1):: SP=SP+1.:: GO 

TO 840 

2140 ! 

2150 ! GAS 

2160 | 

2170 CALL TCHAR(10,15,32,9,18) 

2180 IF GC=0 THEN DISPLAY AT(11,14):"VUOI COMPRARE?" :: DISPLAY AT(12,14):"$1500 
(S/N)" :: ACCEPT AT(16,28)VALIDATE("SN")SIZE(1):R$ :: GOTO 2210 

2190 DISPLAY AT(11,14): "DEVI PAGARE" :: DISPLAY AT(12,14):"$450 A "iNOM$(GC):: A 

(NGC,9)=A(NGC,9)-450 :: A(GC,9)=A(6C,9)+450 

2200 CALL DELAY(500) 

2210 IF R$="N" THEN 840 ELSE A(NGC,9)=A(NGC,9)-1500 :: GC=NGC :: DISPLAY AT(XX,Y 

Y-1)SIZE(1):CHR$(127) 

2220 IF R$<>"N" THEN CALL SPRITE(£SP,122,COL(NGC),8*XX-7,8*YY+1):: SP=SP+1 :: GO 

TO 840 

2230 | 


2240 ! SUB & DATA 


2250 | 

2260 DATA gdbdbdbdbdbd,c‘h'h‘h'h"h',ftayasapasar,c* CC c',fq 
frx,c' Ct c‘',fp fs 

2270 DATA c‘* c*;C° c',fs fp,c° C°4G c',fx 


fy,c‘bdbdgbgbc*,c‘h'‘h‘chchce’, fvasawfxfsfu 
2280 DATA 16,3,5,9 
2290 DATA AUSONIA, 110,50,0,195,FIRS, 125,42,0.3,MARELLI,110,54,0.25, BASTOGI, 16,35 
0,0.015 
2300 DATA GEMINA, 51, 105,0.12,S.M.E.,58,90,0.12,SAFFA, 70, 75,0. 16, ILLSA, 60,90, 0.13 
23510 DATA 700, 2,800, 6, 750,9, 450, 12,500, 17,600, 19 
2320 SUB TCHAR(X,Y,CAR,H,L) 
2330 FOR ALT=X TO H+tX :: CALL HCHARCALT,Y,CAR,L):: NEXT ALT 
2340 SUBEND 
2350 SUB DELAY(X) 
23560 FOR TIME=1 TO X_:: NEXT TIME 
2370 SUBEND 
2380 END 


100 OPTION BASE 1 

110 DIN A$(4,4),B$(4,41,C$(4,4),D$(17),E$(12),F$(3) 

120 CALL CLEAR 

130 CALL SCREEN(15) 

140 PRINT “HO UCCISO LA NIA FAMIGLIA,PER ESPIARE TALI COLPE DEVO COMPIERE 12 AZI 
ONI IN UN ORDINE ESATTO"::: 

150 PRINT "HO PERSO ANCHE LA NENORIA , NON SO CHI SONO E COSA E COSA DEVO FARE A 
IUTANI.*::: 

160 PRINT "LA DIREZIONE E' DATA DALLE INIZIALI DEI PUNTI CARDINALI"::: 

170 PRINT * CAIUTO] SERVE A RICHIANRE LE COMANDI CHE POSSIAMO IMPARTIRE "::: 

180 INPUT "PER INIZIARE PRENI enter ":00$ 
190 FOR Y=1 T0 4 

200 FOR X=1 104 

210 READ AS(Y,L),B$(Y,X),C${Y,X) 

220 NEIT I 

230 NEXT Y 

240 R=3 

250 DATA "IN UNA FORESTA", "IL CINGHIALE","I TRONCHI", "IN UNA CAVERNA BUIA","*,"L 
A RETE” 

260 DATA "IN UNA GROTTA", "L’IDRA(MOSTRO A + TESTE)", "ARCO E FRECCIE*,"A CRETA",* 
IL NINOTAURO(TORO MATTO)” 

270 DATA "LA CORDA", “NEL GIARDINO DELLE ESPERADI”,"I PONI AURI*,"LO SCUDO" 

280 DATA "NEL PRATO A EST C’E'LA PALUDE SOPRA ESSA GLI UCCELLI CARNIVORI*,"*,"LA 
SPADA", “NELLA PALUDE", "*,** 

290 DATA "SULLA SPIAGGIA", "IL SATIRO*,"LE CHIAVI", "SULLA SPIAGGIA","",**, "NELLA 
SAVANA", "IL LEONE* 

300 DATA "LA TORCIA" 

310 DATA "NELL’INNENSA DISTESA", “IL CERVO", "LA LANCIA", "ALLE PORTE DELL’ INFERNO 
OLTRE CUI C'E" IL CANE* 

320 DATA "IL CANE A TRE TESTE*,"","NEL REGNO DELLE AMAZZONI", *LA REGINA IPPOLITA 
®."LA CINTURA", "IN UN PASCOLO" 

330 DATA "LE PECORE*,"LA LANA", "ACCANTO AL FIUME”, "LO SPORCO DELLE STALLE*,"LA S 
ELLA® 

340 DATA "NEL REGNO DEI BISTONI*,"I CAVALLI ANTROPOFAGI", "L'ANELLO" 

350 DATA "RUBA", "DEVIA", "CATTURA", *COLPISCI", "BRUCIA", "AIUTO", "DONA", "UCCIDI*,"P 
RENDI”, "POSA", "LISTA", "VAI* 

360 DATA “ENTRA", "APRI", "RINUNCIA", "RITORNA", "STROZZA" 

370 DATA "IL LEONE*,"L’IDRA(NOSTRO A + TESTE)", "IL CERVO", "IL CINGHIALE", "GLI UC 
CELLI CARNIVORI* 

360 DATA "LO SPORCO DELLE STALLE”, "IL NINOTAURO(TORO NATTO)","I CAVALLI ANTROPOF 
AGI", "LA REGINA IPPOLITA" 

390 DATA "LE PECORE*,"I PONI AURI","IL CANE A TRE TESTE” 





CAVE ADVENTUR 





410 FOR I=1 T0 17 

420 READ D$(1) 

430 NEIT I 

440 RESTORE 370 

450 FOR I=1 1012 

450 READ E$(1) 

470 NEIT I 

480 X=2 

490 620 

500 N=1 

510 U=0 

920 Y=2 

530 REN #8###44#44#4#4#HHtH 

540 IF AS(Y,I)="NELLA PALUDE" THEN 2990 
550 IF N=13 THEN 3340 

360 CALL CLEAR 

570 PRINT "SEI "&ASIY,D:: 

580 PRINT "DEVI AFFRONTARE "&B$(Y,1):: 
590 PRINT "DI INTERESSANTE VEDO "&C$(Y,1):: 
600 INPUT "CHE AZIONE CONPIO *:U$ 

610 IF USC)*RITORNA* THEN 650 


400 RESTORE 350 620 UFU+1 
630 IF U=2 THEN 3430 

670 IF US=D$(I)THEN 720 640 BOTO 660 

680 NEXT I 650 U=0 

690 PRINT :::"NON CONOSCO "&U$ 660 FOR I=1 T0 17 

700 BOSUB 2770 

710 GOTO 530 

720 ON 1 GOTO 730,790,890, 1040, 1150, 1340, 1410,1510,1620,1780,1930, 1980,2090,2150 
2320, 2350, 2520 850 NEIT K 
730 IF B$(Y,I)="I PONI AURI” THEN 780 860 GOSUB 2950 
740 IF BSIY,X)="LE PECORE" THEN 780 870 GOSUB 2770 
750 GOSUB 2930 890 GOTO 530 
760 GOSUB 2770 890 IF B$(Y,X)}="IL CINGHIALE® THEN 970 
770 GOTO 530 900 IF B$(Y,X)="IL CANE A TRE TESTE" THEN 970 
780 GOTO 2570 910 IF B$(Y,X)="IL SATIRO" THEN 3390 
790 IF BS(Y,X)="LO SPORCO DELLE STALLE" THEN 830 920 IF BS(Y,X)}="IL NINOTAURO(TORO MATTO)" THEN 3470 
800 GOSUB 2930 930 IF BS(Y,K)="IL CERVO" THEN 970 
810 GOSUB 2770 940 GOSUB 2930 

950 GOSUB 2770 

820 GOTO 530 
830 FOR K=1 103 960 GOTO 530 


840 IF F$(K)="I TRONCHI" THEN 2570 


970 FOR K=1 703 


980 IF F$(K)="LA RETE" THEN 2570 


990 IF F$(K)="LA CORDA" THEN 2570 

1000 NEIT K 

1010 PRINT "NON HO NULLA PER CATTURARLO E PERCIO PERISCO" 
1020 GOTO 3010 

1030 GOSUB 2970 

1040 IF SEGS(AS(Y,1),1,9)="NEL PRATO" THEN 1090 
1050 IF B$(Y,1)="IL SATIRO" THEN 3390 
1060 GOSUB 2930 

1070 GOSUB 2770 

1080 GOTO 530 

1090 FOR K=1 T0 3 

1100 IF F$(K)="ARCO E FRECCIE" THEN 2660 
1110 NEXT K 

1120 GOSUB 2950 

1130 GOSUB 2770 

1140 BOTO 530 

1150 IF B$(Y,Y}="L'IDRA(NOSTRO A + TESTE)" THEN 1200 
1160 GOSUB 2930 

1170 GOSUB 2770 

1180 GOTO 530 

1190 REN 

1200 FOR K=1 T0 3 

1210 IF F$(K}="LA TORCIA" THEN 1260 

1220 NEIT K 

1230 GOSUB 2950 

1240 GOSUB 2770 

1250 GOTO 530 

1260 PRINT "OK COSA GLI BRUCID?* 

1270 FOR K=1 10 2 

1280 INPUT T$ 

1290 IF T$="LE TESTE” THEN 2570 

1300 NEXT K 

1340 PRINT "L'IDRA TI HA UCCISO" 

1320 GOSUB 2770 

1330 GOTO 3010 

1340 FOR K=1 TO 17 

1350 PRINT D$IK), 

1360 NEXT K 

1370 GOSUB 2770 

1380 BOSUB 2770 

1390 GOSUB 2770 

1400 GOTO 530 

1410 IF A$({Y,1)="NEL REGNO DEI BISTONI” THEN 1450 
1420 GOSUB 2930 

1430 GOSUB 2770 

1440 GOTO 530 

1450 FOR K=1 T0 3 

1460 IF F${K)="LA SELLA" THEN 2570 

1470 NEXT K 

1480 GOSUB 2950 

1490 PRINT :::"I CAVALLI NI HANNO DISARCIONATO"::: 
1500 GOTO 3010 

1510 REN 

1520 IF B${Y,X)="IL SATIRO" THEN 3390 
1530 IF B${Y,I)="LA REGINA IPPOLITA" THEN 1560 
1540 6070 3450 

1550 REN 

1550 FOR K=1 103 

1570 IF F${K)="LA SPADA" THEN 2570 

1590 NEIT K 

1590 BOSUB 2950 

1600 PRINT :::*PERCIO NI UCCIDE" 

1610 GOTO 3010 

1620 RENO #REHH#E#44#444t44tH5 

1630 IF B&{Y,1)="IL SATIRO" THEN 1670 


1640 IF B$(Y,1)="" THEN 1670 

1650 PRINT :::*MENTRE PRENDEVO "5C$(Y,1);"NON HO AFFRONTATO "3B$(Y,X); "QUESTO ER 
RORE NI E'COSTATO LA VITA” 

1660 GOTO 3020 

1670 FOR K=1 T03 

1680 IF F$(K)="" THEN 1730 

1690 NEXT K 

1700 PRINT :::"HO TROPPI DGGETTI CON NE NON RIESCO A PORTARNE ALTRI" 
1710 GOSUB 2770 

1720 6070 530 

1730 F$(K)=C$(Y,1) 

1740 C84Y,K)="" 

1750 PRINT :::"HO RACCOLTO *;F$(K) 

1760 GOSUB 2770 

1770 GOTO 530 

1780 IF C$(Y,1)="" THEN 1820 

1790 PRINT :::"NON POSARE NIENTE PERCHE NON C°E' POSTO" 
1800 BOSUB 2770 

1810 GOTO 550 

1820 PRINT 1::*COSA POSO"::: 

1830 INPUT HH$ 

1840 FOR K=i 70 3 

1850 IF F$(K)=HH$ THEN 1900 

1860 NEXT K 

1870 GOSUB 2930 

1880 GOSUB 2770 

1890 GOTO 1920 

1900 C8iY,1)=FS(K) 

1910 F$(K)="" 

1920 GOTO 530 

1930 FOR K=1 TO 3 

1940 PRINT "HO CON NE "5F$(K) 

1950 NEXT K 

1960 BOSUB 2770 

1970 GOTO 530 

1980 IF B$iY,1)="" THEN 2020 

1990 PRINT "DOVEVI PRINA AFFRONTARE *;B$(Y,X) 
2000 GOSUB 2770 

2010 GOTO 3010 

2020 PRINT ::: "DAMMI LA DIREZIONE": 
2030 CALL KEY(0,V,5) 

2040 IF S=0 THEN 2030 

2050 IF V=78 THEN 3140 

2060 IF V=83 THEN 3190 

2070 IF V=79 THEN 3240 

2090 IF V=69 THEN 3290 ELSE 2030 

2090 IF B$(Y,X)="IL CANE A TRE TESTE" THEN 2120 
2100 GOSUB 2930 

2110 GOSUB 2770 

2120 PRINT :::"LA PORTA E’ CHIUSA" 

2130 GOSUB 2770 

2140 G0T0 530 

2150 IF B#(Y,1)="IL CANE A TRE TESTE* THEN 2180 
2160 GOSUB 2930 

2170 GOSUB 2770 

2180 FOR K=1 103 

2190 IF F$(K)="LE CHIAVI" THEN 2240 

2200 NEIT K 

2210 GOSUB 2950 

2220 GOSUB 2770 

2230 6070 530 

2240 PRINT “ORA CHE HO APERTO CHE FACCIO” 
2250 INPUT Hh$ 

2260 IF HH$="ENTRA" THEN 2300 

2270 GOSUB 2950 


2280 GOSUB 2770 
2290 GOTO 530 


2000 R-#-1 
2300 PRINT :::°SONO ENTRATO":: 
2010 1F R=0 THEN 3010 
2310 GOTO 580 
2920 GOSUD 2770 2320 PRINT s:: "PERCHE L'HAI FATTO DOVEVI INSISTERE":: 
2930 PRINT ::>"NON DIRE CAZZATE" 
2330 6OSUB 2770 
- 2540 GOTO 3030 
2950 PRINT :::"NON HO MILLA DI UTILE PER FAR CIO page ARERI 
2060 RETURA 2360 PRINT ::: "ATTENZIONE NON USARE 2 VOLTE DI SEGUITO QUESTA SCAPPATTOIA, ANCHE 
2970 PRINT ::: "PERCIO *88(Y,1);* UCCIDE” ABUSARNE TROPPO E” FATALE* 
2990 GOSUB 2770 
2090 PRINT s::"SEI FINITO NELLA PALUDE E STAI SPROFONDANO LENTAMENTE” A 
muito 2580 G0SUB 2770 
DIRI 2390 6641 
3020 PRINT ss5"LE TUE ISTRUZIONI DA IDIOTA NI HAMMO PORTATO ALLA MORTE"::355%" 2409 1F V=79 THEN 2440 
3030 PRINT "PER TENTARE ANCORA PRENI [1] * pettini 


3040 CALL KEY(0,T,1T) 
3050 IF TT=0 THEN 3040 
3060 IF T=49 THEN 3080 
3070 END 


2420 IF V=79 THEN 2480 
2430 IF V=69 THEN 2500 
2440 Y=YHl 


- 
3080 RESTORE 250 # uo 
3090 FOR K=1 10 3 ARA 
3100 F6(K)="" im nin 
3110 NEIT K 2490 GOTO 530 
3120 R=0 2500 13I-1 
A va 2510 G0TO0 530 
1% 2520 IF BS(Y,1)="IL SATIRO" THEN 3010 
3150 IF YO THEN 3180 2530 IF B8(Y,1)="IL LEONE THEN 2570 
3160 GOSUB 2880 
ego 2540 GOSUB 2930 
170 Y= 2550 GOSUB 2770 
3180 G0T0 530 
sete 2560 6010 530 
3200 IF YC)5 THEN 3230 SARO 
sini 2500 GOSUB 2770 
2590 IF B6(Y, X)=ES (NITHEN 2630 
3220 Y=Y-1 
ia 2600 GOSUB 2800 
2610 GOSUB 2770 
3240 1511 2620 GOTO 3010 
3250 IF 1CD0 THEN 3280 
2630 G0SUB 2820 
3260 GOSUB 2890 2640 GOSUB 2770 
3270 I=kt1 
2650 G0T0 530 
3280 G0TO 530 3 
2660 GOSUB 2860 
32% n. dai 2670 GOSUB 2770 
3300 1F 1605 THEN 2690 IF ES(N)="GLI UCCELLI CARNIVORI" THEN 2720 
3310 GOSUB 2980 
Li. 2690 GOSUB 2800 
a 2700 GOSUE 2770 
3530 G0T0 530 2710 60T0 3010 
3340 CALL CLEAR 


2720 GOSUB 2820 

2730 PRINT " HAI ELININATO GLI UCCELLI CARNIVORI* 
2740 GOSUB 2770 

2750 A$(2,2)="NEL PRATO" 


3360 26=CHR$ (69)&CHRS (82)&CHR$ (67)&CHRS (79)&CHR$ (76) &CHRS (69) 
3370 PRINT “IC NIO NONE E' “28 


3380 END 

3390 PRINT :::*IL SATIRO E” UN'AVVERSARIO ASSAI DIFFICILE DA AFFRONTARE an si tv» 

3400 GOTO 3020 2780 NEIT K 

3410 PRINT s::°NI HAI FATTO FARE LA FIGURA DEL VIGLIACCO, MENTRE IO NON LO SOND 2790 RETURN 

ong DA 2800 PRINT "QUESTA AZIONE VA ESEGUITA DOPO AHAHAHHHAH":s 
: , 2810 RETURN 

ina au 2820 PRINT “OTTINO TI NANCANO N. AZIONI *;12-4 

3450 PRINT s:s"NEL FAR CIO HO PERSO LA VITA * Si iu 

3460 GOTO 3010 2850 RETURN 

3470 FOR K=1 TO 3 

3490 NEIT K 2870 RETURN 

3500 ATO 1010 2880 PRINT "LA TERRA E’ PIATTA E IN QUESTA DIREZIONE NON SI PUO ANDARE SE NO CAD 

3510 F$(K)="" I SOTTO*::: 


3520 G0T0 2570 2890 PRINT "ATTENZIONE HD ANCORA *;R-15° POSSIBILITA DOPODICHE CADO SOTTO*::: 


1 REM FRANCOMPUTER CLUB VICENZA 


2R 
3 R 
4 R 
SC 
10 
15 
20 


14 
25 


30 
55 
40 
DIV 
45 
TUO 
10) 
chi 
60 
69 
70 
75 
80 
85 
90 
95 
100 
105 
110 
115 
120 
125 
150 
155 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 
22 
225 
2350 


255 


EM 
EM TEST DELL’UDIBILITA” UMANA 
EM downloaded from www.ti99iuc.it 
ALL CLEAR 
FOR TY=1 TO 8 
CALL COLOR(TY,16,2) 
NEXT TY 
CALL SCREEN(2) 
PRINT TAB(8); "FREQUENZA TEST" 
PRINT sri:::: 
PRINT "OGNUNO DI NOI E" ABILITATO": "AD ASCOLTARE DEI SUONI": "CON FREQUENZE 
ERSE" 
PRINT ::: "FAI ANCHE TU LA PROVA": "---------------------------- ":"SCEGLI IL 
NUMERO": "E  RICORDALO " 
PRINT ::"QUALI NOTA VUOI (1/1002?) " 
INPUT "NUMERO ?? ":J 
IF Jx=100 THEN 75 
PRINT "*#*MAX IS 100#x+" MUSCOTO.TAMPSrAl i, Le  g\y0ss0 temporale canal 
GOTO 50 
W=104 
RANDOMI ZE 
P=0 
R=1600 
CALL CHAR(96, "00070E08083838") 
CALL CHAR(97, "003F3F2121E7E7") 
0=3 
k=2%(1/12) 
CALL CLEAR 
FOR Isili TOI 
Z=INT(15*RND)+2 






Z=INT(13*RND)+3 

FOR G6=0 TO 1 

X=INT(24*RND)+1 padiglione 
Y=INT(32*RND)+1 auricolare 


CALL COLOR(9,Z,2) 
N=INT (W#K%1) 

CALL HCHAR(X,Y,96+6) 
NEXT 6 

P=P+1 

NT$=STR$ (PF) 

FOR JJ=1 TO LEN(NT$) 
CALL HEHAR(12,15+3J, ASC(SEG$(NT$,JJ,1))) 
NEXT JJ 

CALL SOUND (R,N,0) 

NEXT I 

INFUT "GUALE NUMERO NON AVETE UDITO??":H 
F=INT (W*K%H) 

PRINT "LA VOSTRA FREQUENZA E’ LA:"3F 
PRINT "ANCORA? (Y/N) " 

CALL KEY(0,K,5S) 

IF S=0 THEN 225 

IF K=89 THEN 50 


240 END 


1.000 REMO 464646464636 96 36916 364613646 464644 * * * SDESY II 
* * * 
110 REM FRANCOMPUTERC 
LUB 
120 CALL CLEAR 
130 CALL CHAR(33, "18183C3C7E7EFFFF") 
140 CALL SCREEN(16) 
150 CALL COLOR(1,5,16) 
160 DATA 8,4,4,10,4,4,13,4,4,8,9,2,13,9,2,8,13,4,10,13,3,13,13,4,8,18,4,10,18,4, 
13, 18,4 
170 DATA 10,23,3,8,27,5,13,27,5 
180 FOR T=1 TO 14 
190 READ R,C,N 
200 CALL HCHAR(R,C,33,N) 
210 NEXT T 
220 DATA 8,4,3,10,7,4,8,9,6,9,11,4,8,13,6,8,18,3,10,21,4,9,23,3,8,25,3,10,24,4,8 
,28,6,8,30,6 
230 FOR T=1 TO 12 
240 READ R,C,N 
250 CALL VCHAR(R,C,33,N) 
260 NEXT T 
270 FOR T=1 TO 16 
280 CALL COLOR(1,T,16) 
290 CALL SOUND(100,10+T*100,0,-3,2,2000,0) 


300 NEXT T 
310 CALL COLOR(1,9,16) 
320 PRINT " press any key to begin " 


330 CALL KEY(0,kK,S) 

340 IF S=0 THEN 3530 

350 CALL CLEAR 

360 CALL SCREEN(16) 

370 PRINT "BATTI :"::::"1 per iniziare a disegnare":::"2 per leggere le istruzio 
ni ristoro: 

380 CALL KEY(0,K,S) 

390 IF S=0 THEN 380 

400 IF k=49 THEN 560 

410 CALL CLEAR 

420 CALL SCREEN(12) 

4350 CALL COLOR(1,12,1) 

440 PRINT "PREMI :"::"I tasti con le freccie per": "muversi nella direzione da":" 
loro indicate "::"I soliti tasti "; 

450 PRINT "premendo CTRL":"per scancellare"::"il tasto "":"" per scancellare":"i 
1 video":: 

460 PRINT "batti un tasto” 

470 CALL KEY(0,K,S) 

480 IF S=0 THEN 470 

490 PRINT "per selezionare i "; 

500 PRINT "colori:"::: "per i colori cen i codici":"da i a 9 battere i ":"rispett 
ivi tasti;":"O per il colore 10" 

510 PRINT :"per i numeri di due cifre": "premere SHIFT e il numero": "della second 
a cifra":"(es. per il colore 14" 

520 PRINT "premi SHIFT e il numero 4)":: 

5350 PRINT "per selezionare il carat-":"tere premere il tasto Y" 

540 CALL KEY(0,KEY,STATUS) 

550 IF STATUS=0 THEN 540 


560 REM III RIETI 
570 REM * * 
580 REM * SDESY II * 
590 REM * * 
600 REM IE 36 3636-36 IEEE 
610 REM 


620 CALL CLEAR 


630 INPUT "Sfondo (cod.Colore)? 
"SF 
640 CALL SCREEN(SF) 
650 CALL HCHAR(1,1,31,768) 
660 PRINT "ASPETTA, PREGO":::::s:s::c:c:: 
670 FOR C=33 TO 153 STEP 8 
680 CALL CHAR(C,"FFFFFFFFFFFFFFFF") 


690 CALL CHAR(C+1,"003C7EFFFF7E3C") 1250 N=N+1 

700 BALL CHAR(C+2, "O00OFFFECErr") 1260 IF N>24 THEN 1270 ELSE 1280 
710 CALL CHAR(C+3, "3C3C3C3C3C3C3C3C") 1270 N=N-1 

720 CALL CHAR(C+4,"18183C3C7E7EFFFF") 1280 CALL HCHAR(N,M, 64) 

730 NEXT C 1290 CALL HCHAR(N,M, 32) 

740 FOR T=1 TO 16 1300 GOTO 820 

750 CALL COLOR(T,T,SF) 1310 A=A+1 

760 NEXT T 1320 IF A>4 THEN 1330 ELSE 1340 
770 C=41 1330 A=0 

780 CALL CLEAR 1340 GOTO 820 

790 CALL SOUND(500,-2,0,110,15,1110,3) 13550 C=113 

800 N=6 

810 M=4 


820 CALL KEY(0,K,S) 
830 IF S=0 THEN 820 

840 POSITION=POS("DESXY'&£$%%0123456789:",CHR$(K),1) 

850 IF POSITION=0 THEN 820 

850 ON POSITION GOTO 870, 920,970, 1020, 1070, 1130,1190, 1250, 1310, 1350, 1370, 1390, 14 
10, 1430, 1450, 1470, 1490, 1510, 1530, 1550, 1570, 1590, 1610, 1630, 1650, 1670 

870 M=Mt1 

880 IF M>32 THEN 890 ELSE 900 


890 M=M-1 1560 GO0T0 820 
900 CALL HCHAR(N,M,C+A) 1570 C=121 
910 GOTO 820 1580 G0T0 820 
920 N=N-1 1590 C=129 
950 IF N<1 THEN 940 ELSE 950 1400 GO0TO0 820 
940 N=N+1 1410 C=137 
950 CALL HCHARCN,M,C+A) 1420 GOTO 820 
960 GOTO 820 1430 C=145 
970 M=M-1 1440 GOTO 820 
980 IF Mi THEN 990 ELSE 1000 1450 C=153 
990 M=Mt1 1459 GOTO 820 
1000 CALL HCHARN,M,C+A) 1470 C=105 
1010 GOTO 820 1480 GOTO 820 
1020 N=Nt1 1490 C=335 
1030 IF N>24 THEN 1040 ELSE 1050 1500 GO0T0 820 
1040 N=N-1 1510 C=41 
1050 CALL HCHARCN,M,C+A) 520 GOTO 820 
1060 GOTO 820 1550 C=49 
1070 M=M+1 1540 GOTO 820 
1080 IF M>32 THEN 1090 ELSE 1100 1550 C=57 
1090 M=M-1 1560 GOTO 820 
1100 CALL HCHAR (N,M,64) 1570 C=65 
1110 CALL HCHAR(CN,M, 32) 1580 GOTO 820 
1120 GOTO 820 1590 C=753 
1130 N=N-1 1600 GO0T0 820 
1140 IF N<1 THEN 1150 ELSE 1160 1610 C=B1 
1150 N=N+1 1620 GOTO 820 
1160 CALL HCHARCN,M,64) 1650 C=89 
1170 CALL HCHAR(N,M,32) 1640 GOTO 820 
1180 GOTO 820 15650 C=97 
1190 M=M-1 1660 GOTO 820 
1200 IF M<1 THEN 1210 ELSE 1220 16570 CALL CLEAR 
1210 M=M+1 1680 GOTO 820 
1220 CALL HCHAR(N,M,64) 1690 END 


1230 CALL HCHAR(N,M,32) 
1240 GOTO 820 


100 REM #* PSEUDORADDOPPIO DI COLONNE ** 


105 REM CLUB FRANCOMPUTER 

110 REM CREAZIONE DI EZIO SACCHI - NOVARA 

120 DIM A$(37) 

130 FOR I=1 TO 37 

140 READ A$(I) 

150 NEXT I 

160 CALL CLEAR 

170 INPUT " STRINGA DA STAMPARE "15$ 

180 CALL CLEAR 

190 PRINT " RIGA, COLONNA DI STAMPA (A STAMPA ULTIMATA PREMI UN TASTO PER CONTINU 
ARE)"; 

200 INPUT R,C 

210 IF (R<1)+(R>24)+(C<1)+(C>32)THEN 200 

220 CALL CLEAR 

230 PRINT S$ 

240 K=0 

250 FOR J=1 TO LEN(S$)STEP 2 

260 S=ASC(SEG$(S$,J,1)) 

270 IF S=32 THEN 340 

280 IF (S<58)*(S*%47)THEN 320 

290 IF ((S?%47)#(S<58))+((S>64)#(5<91))THEN 300 ELSE 340 
300 B$=A$ (5-64) 

310 GOTO 350 

320 B$=A$(S-21) 

330 GOTO 350 

340 B$=A$(37) 

350 IF J<>LEN(S$)THEN 380 ELSE 360 

360 D$=B$ 

370 GOTO 520 

380 T=ASC(SEG$(5$,J+1,1)) 

390 IF T=32 THEN 360 

400 IF (T<58)*(T>47)THEN 440 

410 IF ((T>47)*(T<58))+((T>64)#(T<91))THEN 420 ELSE 360 
420 C$=A$(T-64) 

430 GOTO 450 

440 C$=A$(T-21) 

450 D$="" 

460 FOR I=1 TO 10 STEP 2 

470 D$=D$£SEG$(B$,I,1)&SEG$(C$,1,1) 

480 NEXT I 

490 GOTO 520 

500 D$=A$(S-64) 

510 J=J-1 

520 CALL CHAR(97+K,D$) 

530 CALL HCHAR(R,C+K,97+K) 

540 IF (C+K)=32 THEN 550 ELSE 570 

550 C=-K 

560 R=R+1 

570 IF K>61 THEN 600 

580 K=K+1 

590 NEXT J 

600 CALL KEY(0,KEY,ST) 

610 IF ST=0 THEN 600 

620 GOTO 160 

630 DATA EOADEOADAO, COROCOROCO, E0808080E0, COROAOAOCO, EOB0COB0EO, E0B0C08080, EOB0A 
OAOEO, AOADEOAORO, E0404040E0 

640 DATA 202020A0E0, AOAOCOROAO, B0B0BOB0EO, AOEDAVAOAO, EOAORORVAO, EOAOROA0EO, COROC 
08080, E0A0A0E040, COROCORORO 

650 DATA E0B0E020E0, E040404040, AOROAOAVEO, A0A0A04040, AOAVAVE CAO, ROAO4ORORO, AOA04 
04040, E0204080E0, 40A0A0A040 

660 DATA 4000404040, E020E080E0, E020E020E0, 2060A0E020, E0806020E0, EOBOEOROEO, E0204 
08080, EOA0EOA0EO, EOA0EO20E0 

670 DATA 0000000000 


10 CALL CHAR(143, "3C4299A1A199423C") 

100 REM *#** MYSTERY SPELL *** 

120 DIM A$(26),B$(20) 

122 ON ERROR 140 

125 CALL INIT :: CALL LOAD(-31878,153) 

130 REM *** INITIALIZATION AND INTRODUCTION *** 

140 DISPLAY AT(5,7)ERASE ALL BEEP: "PAROLA MISTERIOSA" :: FOR I=1 TO 200 :: NEXT 
I 


141 DISPLAY AT(19,5)BEEP: "UN MOMENTO PREGO..." :: GOTO 780 
150 DISPLAY AT(7,1)ERASE ALL BEEP: "PREMI PER": :0:" 1 = ISTRUZIONI": :" 2 
= GIOCARE": :" 3 = FINIRE" 


160 CALL KEY(0.K.S):s IF S=0 QR(K<49 OR K>S1)THEN 160 :: ON K-48 GOTO 980, 190,17 
0 

170 DISPLAY AT(12,5)ERASE ALL BEEPF:"GRAZIE FER LA PARTITA...CIAO" :: DISPLAY AT( 
14,14-LEN(L$)/2):L$ :: STOP 

190 DISPLAY AT(7,1)ERASE ALL BEEP: "SCEGLI: A 0 B? ": ::" A = PAROLA DEL CON 
PUTERS": :" B = FORMA UNA TUA PAROLA" 

200 CALL KEY(0,K,S):: IF S=0 OR(K<65 OR K>66)THEN 200 :: IF K=66 THEN 220 

210 PSW=1 :: GOTO 230 

220 PSW=0 :: GOTO 1620 

230 CALL CLEAR :: RESTORE 940 :: GOTO 930 

240 CALL SPRITE(£2,120,2,78,121,0,0):: CALL MAGNIFY(3):: CALL SPRITE(£4,136,16,8 
,128,0,1):: CALL SPRITE(£3,140,2,8,128,0,-2) 


250 DISPLAY AT(5,7): "PAROLA MISTERIOSA" :: T=200 :: GO0SUB 1050 :: IF PSW=1 THEN 
GOTO 1840 
260 DISPLAY AT(19,1)BEEP: "NOME PREGO! ! " 33 DISPLAY AT(23,1): "DIGITA IL NOME,P 
OI ENTER" 


270 ACCEPT AT(5,7)SIZE(18):L$ :: CALL HCHAR(5,7,352,22) 

280 REM **# MAIN PROGRAM LOOP #*** 

290 DISPLAY AT(19,1)BEEP: "SCEGLI IL LIVELLO DI GIOCO" 

300 DISPLAY AT(23,1):" 1) FACILE 2) DIFFICILE" :: CALL KEY(0,kK,S)s: IF ‘S=0 OR 
K>50 OR K<49 THEN 300 :: IF K=49 THEN ER=7 ELSE ER=5 

310 FOR SP=5 TO 13 :: CALL DELSPRITE(£SP):: NEXT SP 

320 DISPLAY AT(19,1):" ABC DEFGHIJKL M" :: DISPLAY AT(23,1)BEEP:" N O 

POARSTUVWX YZ" :: RANDOMIZE 

330 CALL HCHAR(5,3,32,28):: W$=B$(INT(20*RND)+1):: F=LEN(W$):: FOR I=1 TO Fs: 
ISPLAY AT(5,2%*I1+14-F):"_" :: NEXT Ios: Y=0 :: SP=135 

340 CALL KEY(0,kK,S):: IF S=0 OR(K<65 OR K>90)THEN 340 ELSE C=121 

350 IF Kk<78 THEN R=128 ELSE R=160 

360 CC=((kK-654)#16+16-208*INT((K-64)/14))/8 :: CALL GCHARC((R+24)/8,CC,X)s: IF X=3 

2 THEN 370 ELSE 390 

370 DISPLAY AT(16,14-(8+LEN(L$))/2)BEEP:" OOPS, "5L$;"," :: DISPLAY AT(17,1): "LA 
HAI GIA SCELTA CRETINO!!!" 

380 FOR D=1 TO 300 :: NEXT D :: CALL HCHAR(16,1,33,64):: GOTO 340 

390 V=17 :: H=0 :: GO0SUB 55 

400 IF K<x72 OR(K>77 AND Kx85) THEN H=-17 ELSE H=17 

410 V=0 ss: C=(K-64)#16+4-208*INT((k-64)/14):: GO0SUB 550 

420 X=0 :: CALL HCHAR((R+24)/8, (C+12)/8,32):: FOR I=t TO F :: IF ASC(SEG$(W$,I,1 
))<>K THEN 450 

4350 CALL PATTERN(£2,124):: GOSUB 580 

440 CALL PATTERN(£2,120):: DISPLAY AT(5,2*1+14-F)SIZE(-1):CHR$(K)s: X=1 ss: Y=Y+1 
450 NEXT I :: IF X=1 THEN 470 

460 CALL PATTERN(£2,128):: GOSUB 620 :: CALL PATTERN(£2,120) 

470 H=-Ha:s: C=121:: GOSUB 550 

480 V=-17 :: H=0 :: .R=78:: GOSUB 550 

490 IF Y=LEN(W$)THEN GOSUB 740 ELSE 500 :: GOTO S10 

500 IF ER=1 THEN GOSUB 710 ELSE 340 

510 DISPLAY AT(23,1)BEEP:" UN’ ALTRA PAROLA ? (Y/N)" 

9520 CALL KEY(0,K,5S):: IF S=0 OR K<>89 AND K<>78 THEN 520 :: IF K=89 THEN 290 
530 CALL DELSPRITE(CALL):: GO0TO0 150 

540 REM *#** SUB TO MOVE HAPFY FACE x*** 

550 CALL MOTION(£2,V,H) 

3560 CALL COINC(£2,R,C,4,Z):: IF Z=0 THEN 560 ELSE CALL MOTION(£2,0,0):: CALL LOC 
ATE (£2,R,C):: RETURN 


570 REM #*** SUB FOR CORRECT GUESS *#** 

580 B=8*(2#1+14-F):: CALL SPRITE(£1,132,14,R,C, (32-R) /8, (B-C) /8) 

590 J=2*(1/12):: FOR A=1 TO 25 :: CALL SOUND(-40,220*J%A,1):: NEXT A 

600 CALL COINC(£1,32,B,6,7):: IF Z=0 THEN 600 ELSE CALL DELSPRITE(£1):: RETURN 

610 REM *##* SUB FOR INCORRECT GUESS *** 

620 SP=SP-1 :: ER=ER-1 :: IF ER>4 THEN RR=80 ELSE RR=50 

630 IF ER=6 OR ER=4 THEN C=52 

640 IF ER=S5 OR ER=1 THEN C=188 

650 IF ER=3 THEN C=110 

660 IF ER=2 THEN C=1352 

670 CALL SPRITE (£SP, 140, 2,1, 120, (RR-1)/8, (C-120) /8) 

680 J=2*(1/12):: FOR A=25 TO 1 STEP -1 :: CALL SOUND(-40,440*J©A,1):: NEXT A 

690 CALL COINC(£SP,RR,C,6,7):: IF Z=0 THEN 690 ELSE CALL MOTION(£SP,0,0):: CALL 

LOCATE (£SP.RR.C):: CALL PATTERN(£SP,100):: RETURN 

700 REM *** SUB FOR BLACKBIRDS WIN *** 

710 CALL HCHAR(19,3,32,28):: DISPLAY AT(19,15-(B8+LEN(L$))/2): "SCUSA, "5L$;"," 

720 DISPLAY AT(23,1)BEEP: "GLI UCCELLI NERI HANNO VINTO" :: GOSUB 760 ss RETURN 

730 REM *#** SUB FOR PLAYER WINS *** 

740 CALL HCHAR(19,3,32,28):: DISPLAY AT(19,15-(8+LEN(L$))/2): "BRAVO, "5L$;"," 

750 DISPLAY AT(23,1):" LA HAI INDOVINATA WOW" 

760 CALL HCHAR(S,3,32,28):: FOR I=1 TO F :: DISPLAY AT(5,2*1+14-F):SEG$(W$,1,1): 
s NEXT Is: T=180 :: GOSUB 1050 :: RETURN 

770 REM **#* ASSIGN COLORS AND DEFINE CHARACTERERS *** 

780 FOR I=0 TO 9 :: CALL COLOR(I,2,8):: NEXT I :: CALL COLOR(10,3,8):: CALL COLO 

R(11,16,8):: CALL COLOR(1,13,8) 

800 FOR I=1 TO 25 :: READ C,A$(I):: CALL CHAR(C,A$(I)):: NEXT I :: CALL SCREEN(CI 

5):: GOTO 150 

810 DATA 112, COCOCOCOCOCOCOCO, 115, 03030303030303503, 114, FFFFFFFFFFFFFFFF, 115, COCO 

COFFFFCOCOCO, 116, 0350303FFFF030303 

820 DATA 105, 183C3C7E7EFFFFFF, 106, FFFFFFFFFFFFFFFF, 107, FFFFFF7E7E3C3C18, 108, 071F 

7FFFFF7F1F07, 109, COFOFEFFFFFEFOCO 

830 DATA 96, 00000000030F 3FFF, 97, FFFFFFFFFFFFFFFF, 98, FFFFEFC78383C7EF, 99, 7F3F1ESC 

78FCFEFF, 33, FFFFFFFFFFFFFFFF 

840 DATA 91, 1F3F7FFFFFFFFFFF, 92, FBFCFEFFFFFFFFFF, 93, 00000000C0F OFCFF 

850 DATA 120, 071820404C8880818088844340201807E0180C02 32110181011121C2020418E0 

860 DATA 124,071820404C888081809F904844231807E0180C023211018101F9091222C418E0 

870 DATA 128,071820404C8880818083844840201807E0180C023211018101C1211202041BE0 

880 DATA 132,030F 1F35F3F3F3F1F0F0705010102040880E0F0F8F8F8F8FO0EO0CO080 

890 DATA ne 030F 3F7F7F3FFFFFFFFF3F7F7F37070100C0CCFEFEFCFFFFFFFFFCFEFEECE080 

900 DATA 140, 000000000000183D4783010000000000000000000000 18BCE2C1800000000000 

910 DATA 100, 00010101000103030707070301000101C0E0FODOCOEOFOFOFSFBFBFOE0C02020 

920 REM *** PRINT SCREEN *#** 

930 CALL HCHAR(16,1,33,288):: FOR I=t TO 21:: READ R,C,6$ :: DISPLAY AT(R,C)SIZ 

E(-6):6$ :: NEXT I :: GOTO 240 

940 DATA 9,12, ‘Caa\],10,12,qrrrrp, 11,12, grrrrp,12,12,qrrrrp,135,14,5t,14,14,st,15 
s14,st 

950 DATA 9,5,iii,10,4,ljjjm,11,4,ljjjm,12,5,kjk,13,6,b,14,6,a,15,6,a 

960 DATA 9,22, fi, 10, 21,ljjjm,11,21,ljjjm, 12, 22,kjk,13,23,a,14,235,b,15,23,a 

970 REM *** INSTRUCTION *** 

980 DISPLAY AT(1,8)ERASE ALL: "MYSTERY SPELL": :" L'OBIETTIVO DEL GIOCO": "E” DI 
INDOVINARE LA PAROLA": "SEGRETA. " 

990 DISPLAY AT(6,4): "QUANDO PREMI UNA LETTERA": "LA FACCIA CHE RIDE SI MUOVE": "E 

VA SULLA LETTERA SCELTA":"SE E GIUSTA ESSA PRENDERA " 

1000 DISPLAY AT(10,1):"IL SUO POSTO ESATTO. ":" SE HAI SBAGLIATO UN ": "UCCELLO 

NERO SI DEPOSITERA”.":"QUEST INDICA CHE HAI UN " 


1010 DISPLAY AT(14,1):"TENTATIVO IN MENO.":"BUONA FORTUNA ": :" ANZI, BUON DIV 
ERTIMENTO" 

1020 DISPLAY AT(19,1)BEEP: "CIAO CIAO":" CIAO .": :"CIAO MI RACCOMANDO OK 
un 

1030 DISPLAY AT(24,4):"##* PREMI UN TASTO***" :: CALL KEY(0,K,S):: IF S=0 THEN 1 
030 ELSE 190 

1050 R=8 :: FOR SP=5 TO 13 :: C=INT(RND#*240)+1 :: CALL SPRITE(£SP,140,2,R,C,0,RN 
D#12+1):: R=R+12 :: NEXT SP 


1070 CALL SOUND(T,349,0,175,2) 


1060 CALL SOUND(T,175,0) 1080 CALL SOUND(T,587,0,175,2) 


2%T,523,0,440,1,175,2) 


T,587,0,175,2) 


1180 CALL SOUND(T, 220,2) 


1140 CALL SOUND(T,587,0,196,2) 


1190 CALL SOUND(T,523,0,440,1,220,2) 


1200 CALL SOUND(T,311,2) 


1150 CALL SOUND(2*T,523,0,4656,1,196,2) 


1160 CALL SOUND (T,587,0,196,2) 


2%T,523,0,440,1,185,2) 


T,196,0) 


1210 CALL SOUND(T,523,0,440,1,311,2) 


1170 CALL SOUND(2*T,5235,0,466,1, 208,2) 


T,330,0, 196,2) 


1090 CALL SOUND 
1100 CALL SOUND 
1110 CALL SOUND 


1120 CALL SOUND 


30 CALL SOUND 


- 
Da) 


li 


1220 CALL SOUND (T,294,2) 1410 CALL SOUND(T,698,0,233,2) 


1250 CALL SOUND(T,494,0,415,1,294,2) 1420 CALL SOUND(T,587,0,294,2,349,2) 
1240 CALL SOUND(T,277,2) 1430 CALL SOUND(T,698,0,294,2,349,2) 
1250 CALL SOUND(T,466,0,392,1,277,2) 1440 CALL SOUND(T,698,0,220,2) 

1260 CALL SOUND(T,440,0,262,2) 1450 CALL SOUND(T,587,0,220,2) 

1270 CALL SOUND(T,523,0,262,2) 1460 CALL SOUND(T,523,0,262,2,349,2) 
1280 CALL SOUND (T,587,0,247,2) 1470 CALL SOUND(T,440, 0,2 62,2,349,2) 
1290 CALL SOUND (T,698,0,247,2) 1480 CALL SOUND(T,392,0,247,2) 
1300 CALL SOUND (2*T,659,0,233,2) 1490 CALL SOUND (T, 784,0, 247, 2) 

1310 CALL SOUND (2*T,784,0,659,1,131,2) 1500 CALL SOUND(T,698,0,294,2,349,2) 
1320 CALL SOUND (T,880,0,175,2) 1510 CALL SDUND(T,659,0,294, 2,349, 2) 
13550 CALL SOUND (T,831,0,175,2) 1520 CALL SOUND(T,587,0,196,2) 

1340 CALL SOUND (T,880,0, 265, 2,349,2 1530 CALL SOUND(T,440,0,196,2) 

1350 CALL SOUND (T,1047,0,2 62,2,340,2 1540 CALL SOUND(T,440,0,233,2,349,2) 
1360 CALL SOUND (T,1047,0,220,2) 1550 CALL SOUND(T,494,0,233,2,349,2) 
1370 CALL SOUND (T, 880,0, 220, 2) 1560 CALL SOUND(T,523,0,175,2,220, > 
1380 CALL SOUND(T,784,0,262,2,349,2) 1570 CALL SOUND(T,587,0,175,2,220,2 
13590 CALL SOUND (T,698, 0, 262,2, 349,2) 1580 CALL SOUND (2+T, 659,0, 262,2) 
1400 CALL SOUND (T,784,0,233,2) 1590 CALL SOUND(3*T,698,0,262,2,175,0) 


downloaded fem vt 99fuc.it 
1600 FOR I=1 TO 30 STEP 2 :: CALL SOUND(-T,698,I,262,1,175,1):: NEXT I :: RETURN 
1610 REM *** CREATE A WORD LIST x*x** 


1620 DISPLAY AT(1,4)ERASE ALL: "ISTRUZIONI PER PAROLE": : :" IN QUESTA PARTE TU 
PUDOI":"SIA CREARE NUOVE PAROLE" 
1630 DISPLAY AT(6,1):"CHE CARICARLE DA UN ALTRO ":"DISPOSITIVO. “i ul P 


ER OGNI PAROLA CHE CREI ,":"DOPO PREMI ENTER OK!!!" 

1640 DISPLAY AT(12,1): "ENTER. MAXIMUM WORD LENGTH":"IS 15 CHARACTERS. 20 WORDS 
“": "MUST BE ENTERED FOR EACH 0F": "THE WORD LISTS CREATED." 

1650 DISPLAY AT(18,3)BEEP: "AS YOU ENTER EACH LIST, ":"YOU MAY SAVE IT TO A STORAG 
E":"DEVICE FOR FUTURE USE WITH": "MYSTERY SPELL." 

1660 DISPLAY AT(24,4):"#*#** PRESS ANY KEY ***" :: CALL KEY(0,K,S):: IF S=0 THEN 1 
660 

1670 DISPLAY AT(7,1)ERASE ALL BEEP: "PREMI ": 33" 1 = PER CREARE LALISTA" 
sr" 2 = PER CARICARLA "::" 3 = PER USCIRE" 

1680 CALL KEY(0,kK,S)s: IF S=0 ORfCK<49 OR K>51)THEN 1690 :: J=0 :: ON K-48 GOTO 1 
690, 1795, 190 

1690 DISPLAY AT(1,5)ERASE ALL: "IMMETTI LE PAROLE: " 

1700 I,C=1 :: FOR A=1 TO 2:: R=35:: FOR Z=1 TO 10 

1710 ACCEPT AT(R,C)SIZE(-153)BEEP:B$(I):: R=R+2 ss I=I+1 :: NEXT Z ss C=15 :: NEX 
TA 

1720 DISPLAY AT(24,1)BEEP: "VUOI CAMBIARE QUALCUNA? (Y/N)" 

1730 CALL KEY(0,K,S)s:: IF S=0 OR Kc>89 AND K<>78 THEN 1730 :: IF K=89 THEN 1700 
ss J=1 :: GOTO 1795 

1740 FOR I=1 TO 20 :: PRINT £1:B$(I):: NEXT I :: CLOSE £1:: GOTO 250 

1750 FOR I=t TO 20 :: INPUT £1:B$(I):: NEXT I :: CLOSE £1 

1760 DISPLAY AT(11,6)ERASE ALL BEEF: "DESIDERI VEDERE LA": :" LISTA-PAROLE ? ( 
YIN)" 

1770 CALL KEY(0,K,S):: IF S=0 OR(K<>89 AND K“>78)THEN 1770 :: IF K=89 THEN 1780 
ELSE 250 

1780 DISPLAY AT(1,10)ERASE ALL BEEP: "LISTA-FAROLE" :: R=35 :: FOR I=1 TO 20 STEP 
2 3: DISPLAY AT(R,1):B$(I),B$(I+1):: R=R+2 :: NEXTI 

1790 DISPLAY AT(24,1): "PREMI UN TASTO SE HAI FINITO" :: CALL KEY(0,K,S):: IF S=0 
THEN 1790 ELSE 2350 

1795 ON ERROR 1795 

1800 DISPLAY AT(5,6)ERASE ALL BEEP: "QUAL’E* IL NOME ": :" DEL TUO DISPOSITIVO ? 
": :s"(ESEMPIO: CS1 OR DSK1.WORDS)" 

1810 DISPLAY AT(23,1): "METTI TAPE OR DISK IN DEVICE" :: ACCEPT AT(11,3):F$ :: OP 

EN £1:F$, INTERNAL, UPDATE, FIXED 50 

1820 IF J=0 THEN 1750 ELSE 1740 

1830 REM *#** PRESELECTED WORD LIST #** 

1840 FOR I=1 TO 20 :: READ B$(I):: NEXT I :: G0T0 260 

1850 DATA BANANE, SCEMONE, STUPIDO, CABINE, LUPINI, MERDA, LETTO, CELERI, VAFFANZUM, ARAN 
CIA, MELONI, CAVOLO 

1860 DATA GENITORI, UNIONE, PATINE, MOBILETTI, OVILE, GIOCARE, CAVALLO, NASELLO 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


2530 


REMO 904640946336 EEE 4 

REM #* TI CARDIOLOGO * 

REM è* * 

REM *adattata al ti 99% 

REM #da CLAUDIO SERRA * 

FREMO 2036462634636 46 3636363346616 E 

CALL CLEAR 

PRINT " GUIDA AL RISCHIO "::" DI":: 
PRINT " MALATTIE CARDIACHE":: 

CALL KEY(0,K,S) 

IF S=0 THEN 190 

CALL CLEAR 

PRINT "SCRIVI LA TUA ETA" SCELTA IN UNO DI QUESTI GRUPPI" 

PRINT :::"1 - DA 10 A 20 ANNI":"2 - DA 21 A 30 "":"3 - DA 31 A 40":"4 - DA 41 





A 50 ":"5 - DA Si A 60" 


240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


PRINT "6 - OLTRE 60 ANNI" 
PRINT :::"QUALE GRUPPO ? (1-6)" 
INPUT A 
IF (A<1)+(A>6) THEN 220 
IF A=5 THEN 320 
IF A=6 THEN 300 ELSE 310 
=A+2 
GOTO 330 
A=A+1 
PRINT A 
CALL KEY(0,K,S) 
IF S=0 THEN 340 


PRINT "ORA I FATTORI EREDITARI " 

PRINT "SELEZIONA TRA I SEGUENTI CASI " 

PRINT ::"1 - NESSUNA FACCENDA DI CUORE CONOSCIUTA IN FAMIGLIA" 

PRINT "2 - UN FARENTE ULTRA SESSANTENNE MALATO DI CUORE ":"35 - DUE PAREN 


TI U. SESSANTENNI MALATI DI C. " 


400 
410 
420 
450 
440 
450 
460 
470 
480 
490 
300 
510 
20 
39350 
540 
930 
360 
370 
580 
590 
600 
610 
620 
630 
640 
650 


PRINT “4 - UN PARENTE CON IL CUORE MALATO E MENO DI 60 ANNI" 
PRINT "5 - DUE PARENTI CON IL CUORE MALATO E MENO DI 60 ANNI " 
PRINT "6 - TRE PARENTI CON IL CUORE MALATO E MENO DI 60 ANNI " 
PRINT ::: 

PRINT "CHE CATEGORIA ? (1-6)" 

INPUT H 

IF (H<1)+(H>6) THEN 360 

IF (H=5)+(H=6)THEN 480 ELSE 490 

H=Ht1 

PRINT H 

CALL KEY {0,k,5S) 

IF -5=0 THEN 500 

CALL CLEAR 

PRINT “RIGUARDO AL TUO PESO SCEGLI NELA SEGUENTE TABELLA " 
PRINT :::"1 - PIU‘ DI 2.5 KG SOTTO IL PESO STANDARD PER L’ALTEZZA" 
PRINT "2 - TRA -2.5 E +2.5 KG INTORNO ALLO STANDARD" 

PRINT "3 - DA 3 A 10 KG DI SOPRAPPESO" 

PRINT "4 - DA 11 A 15 KG DI SOPRAFPESO" 

PRINT "5 - DA 16 A 25 KG DI SOFRAFPESO " 

PRINT "6 - OLTRE 25 KG DI SOPRAPPESO " 

PRINT ::: 

PRINT "QUALE CATEGORIA ? (1-6)" 

INPUT W 

IF (W<1)+(W>65) THEN 520 

IF (W=1)+(W=2)+(W=3)THEN 680 

IF (W=4)+(W=5)+(W=6)THEN 660 ELSE 670 


660 W=W+2 

670 GOTO 690 

680 W=W-1 

690 PRINT W 

700 CALL KEY(0,K,S) 
710 IF S=0 THEN 700 
720 CALL CLEAR 


730 PRINT 


740 PRINT 
750 PRINT "1 - NON FUMATORE":"2 - SIGARO E/0 PIPA": "3 - MENO DI 10 SIGARETTE AL 
DI":"4 - CA. 20 SIG. AL GIORNO" 
760 PRINT "5 - CA. 30 SIGARETTE AL GIORNO ":"6 - 40 O PIU‘ SIGARETTE AL GIORNO " 
770 PRINT ::: 

780 PRINT " QUALE CATEGORIA ? (1-6)" 
790 INPUT T 

800 IF (T<1)+(T>6)THEN 720 

810 IF (T=1)+(T=2)THEN 870 


820 IF T=3 THEN 890 
830 IF T=4 THEN 910 
840 IF (T=5)+(T=6)THEN 850 ELSE 860 
850 T=T+5 

860 GOTO 920 

870 T=T-1 

880 GOTO 920 

890 T=T+1 

900 GOTO 920 

910 T=T+2 

920 PRINT T 

930 CALL KEY(0,K,S) 
IF S=0 THEN 930 


940 


950 CALL CLEAR 
960 PRINT "Ok, FASSIAMO ALLA TUA ATTIVITA! " 
970 PRINT "SCEGLI TRA " 


"DALLA PROSSIMA TABELLA SCEGLI LE TUE ATTITUDINE SUL FUMO " 


\J/U 





980 PRINT :: 

990 PRINT "1 - OCCUPAZIONE MOLTO INTENSA E ATTIVITA‘ RICREATIVE " 
1000 PRINT "2 - LAVORO DI MEDIO IMFEGNO E ATTIVITA‘ RICREATIVE " 
1010 PRINT "3 - LAVORO SEDENTARIO E ATTIVITA‘ RICREATIVE INTENSE" 
1020 PRINT "4 - LAVORO SEDENTARIO E ATTIVITA* RICREATIVA MEDIA " 
1030 PRINT "S - LAVORO SEDENTARIO E ATTIVITA" RICREATIVA LEGGERA" 
1040 PRINT "6 - ASSENZA DI QUALSIASI ATTIVITA* FISICA" 

1050 PRINT :: 

1060 PRINT "QUALE CATEGORIA ? (1-6)" 

1070 INPUT E 

10B0 IF (E<1)+(E>5)THEN 960 

1090 IF (E=4)+(E=5)THEN 1130 

1100 IF E=6 THEN 1110 ELSE 1120 

1110 E=E+2 

1120 GOTO 1140 

1130 E=E+1 

1140 PRINT E 

1150 CALL KEY(0,K,5) 

1160 IF S=0 THEN 1150 

1170 CALL CLEAR 

1180 PRINT “DIETA E COLESTEROLO " 

1190 PRINT "SCEGLI TRA I CASI CHE SEGUONO" 

1200 PRINT ::: 

1210 PRINT "1 - COLESTEROLO SOTTO 180 MG, DIETA SENZA GRASSI ANIMALI" 
1220 PRINT "2 - COLESTEROLO 181-205 MG, DIETA CON IL 10 % DI GRASSI ANIMALI" 
1230 PRINT "3 - COLESTEROLO 206 - 230 MG., 20 % DI GRASSI ANIMALI" 


1240 
1250 
1260 
1270 
1280 
1290 
13500 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 


PRINT "4 - COLESTEROLO 251 - 250 MG, 30 % DI GRASSI " 
PRINT "5 - COLESTEROLO 251 -280 MG ,40 % DI GRASSI" 
PRINT "6 - COLESTEROLO 281 - 300 MG. , 50 % DI GRASSI" 
PRINT :: 

PRINT "QUALE CATEGORIA ? (1-6)" 

INPUT C 

IF (C<1)+(C>6)THEN 1180 

IF C=6 THEN 1320 ELSE 1330 

C=C+1 

PRINT C 

CALL KEY (0,kK,S) 

IF S5=0 THEN 1340 

CALL CLEAR 

PRINT "ORA LA PRESSIONE DEL SANGUE" 

PRINT :::"SCEGLI NELLA TABELLA" 
PRINT: 

PRINT " 


1 - MASSIMA DI 100":"2 - MASSIMA DI 120 ":“3 - MASSIMA DI 140":"4 - 


MASSIMA DI 160" 


1410 
1420 
14350 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 


PRINT "5 - MASSIMA DI 180 ":"é - MASSIMA DI 200 0 PIU*" 
PRINT: 

PRINT "QUALE CATEGORIA ? (1-6)" 

INPUT P 

IF (P<1)+(P>6)THEN 1350 

IF P=5 THEN 1500 

IF P=6 THEN 1480 ELSE 1490 

P=P+2 

GOTO 1510 

P=P+1 

PRINT P 

CALL KEY(0,kK,5) 

IF S=0 THEN 1520 

CALL CLEAR 

PRINT "SCEGLI IL TUO CASO TRA QUELLI DELLA TABELLA" 
PRINT :: 

PRINT "1 - FEMMINA SOTTO I 40 ANNI" 

PRINT "2 - FEMMINA TRA 40 E SO ANNI":"3 - FEMMINA SOPRA I 50 ":"4 - MASCHI 


0":"5 - MASCHIO ROBUSTO " 


1590 
1600 
1510 
1620 
1650 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1750 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 


PRINT "6 - MASCHIO CORPULENTO " 
PRINT :: 

PRINT "QUALE CATEGORIA ? (1-65)" 
INPUT S 

IF (S<1)+(S>*6)THEN 32767 

IF (S=4)+(5=5)+(S=6)THEN 1650 ELSE 1660 
S=S+1 

PRINT S 

CALL KEY (0,K,5) 

IF S=0 THEN 1670 

CALL CLEAR 

REM +#*#* CONCLUSIONI #** 
GT=A+H+W+T+E+C+P+S 

PRINT : 

PRINT "I RISULTATI DEL QUIZ" 

PRINT : "AFFERMANO CHE IL TUO RISCHIO" 
PRINT :"DI AVERE PRESTO UN ATTACCO=" 
PRINT :"DI CUORE E*" 

PRINT 

IF 6T>40 THEN 1840 

IF GT>=51 THEN 1860 

IF GT>=24 THEN 1880 

IF G6T>=17 THEN 1900 





1820 IF GT>=11 THEN 1920 
1830 GOTO 1940 


1840 PRINT " A UN LIVELLO DECISAMENTE PERICOLOSO :INTERVENIRE IMMEDIATAMENTE” 


1850 GOTO 1950 


1860 PRINT "A UN LIVELLO ABBASTANZA PERICOLOSO 


1870 GOTO 1950 


1880 


1890 GOTO 1950 


1900 


1910 GOTO 1950 


1920 PRINT "INFERIORE ALLA MEDIA" 


1930 GOTO 1950 


1940 


1950 PRINT 
1960 PRINT "ALMENO CREDO. MA IO NON SONO UN MEDICO" 
1970 CALL KEY(0,K,5) 

1980 IF S=0 THEN 1970 


100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
2350 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 


REM FORZA ITALIA BY ALEX 
CALL CLEAR 
A$="00FFFF0000FFFF00" 
B$="000C1C3C0C0C0C00" 
C$="FFFFFFFFFFFFFFFF" 
D$="007E66667E067E" 
E$="007E667E66667E" 
F$="007E061E06067E" 
CALL CHAR(50,C$) 

CALL CHAR(152,A$) 
CALL CHAR(125,A$) 
CALL CHAR(48,B$) 

CALL CHAR(49,D$) 

CALL CHAR(51,E$) 

CALL CHAR(52,F$) 

CALL SCREEN(6) 

CALL COLOR(1,16,16) 
CALL COLOR(16,3,16) 
CALL COLOR(12,9,16) 
CALL COLOR(3,6,16) 
CALL HCHAR(1,1,152,256) 
CALL HCHAR(17,1,125,256) 
CALL VCHAR(10,6,50,6) 
CALL HCHAR(10,8,50,3) 
CALL YVCHAR(11,9,50,5) 
CALL VCHAR(11,12,50,5) 
CALL HCHAR(10,12,50,3) 
CALL VCHAR(11,14,50,5) 
CALL HCHAR(13,13,50) 
CALL VCHAR(10,16,50,5) 
CALL HCHAR(15,16,50,3) 
CALL VCHAR(10,20,50,6) 


:» DEVI DARTI UNA REGOLATA" 


PRINT "MODERATO , MA NON TRASCURAR--LO TROPPO" 


PRINT “NELLA MEDIA, NON DESTA PREOCCUPAZIONE=" 


PRINT “MOLTO SOTTO LA MEDIA :SEI SANO COME UN PESCE" 


420 CALL VCHAR(11,22,50,5) 
430 CALL HCHAR(10,22,50,3) 
440 CALL VCHAR(11,24,50,5) 
450 CALL HCHAR(13,23,50) 
460 CALL HCHAR(11,26,48) 
470 CALL HCHAR(12, 26,49) 
480 CALL HCHAR(13,26,51) 
490 CALL HCHAR(14,26,52) 
500 FOR I=1 TO 2 

510 CALL SOUND(300, 196,2) 
520 CALL SOUND(250, 196,2) 
530 CALL SOUND(100,220,2) 
540 CALL SOUND(400, 196,2) 
550 CALL SOUND(300,330,2) 
560 CALL SOUND(250,330,2) 
570 CALL SOUND(100,349,2) 
580 CALL SOUND(400,330,2) 
590 CALL SOUND(300,330, 2) 
600 CALL SOUND (250,392,2) 
610 CALL SOUND(100,349,2) 
620 CALL SOUND (400,330,2) 
630 IF I=2 THEN 690 

640 CALL SOUND(300, 294,2) 
650 CALL SOUND(250,330,2) 
560 CALL SOUND(100,294,2) 
670 CALL SOUND (400, 262,2) 
680 NEXT I 

590 CALL SOUND(100,392,3) 
700 CALL SOUND(100, 294,3) 
710 CALL SOUND(100,392,3) 
720 CALL SOUND(200, 262,3) 
730 GOTO 730 








V= 180Km/h Va si Visit 
100 CALL SCREEN(2):: CALL CLEAR 
1 LO REMO 204090404046 d EE REI EEE 
120 REM * * i 
1350 REM * AIRFIGHT * 
140 REM * * 
150 REM * * 
160 REM * EXTENDED BASIC * 
170 REM »* * G 
180 REM * E JOYSTICK 1 * 
190 REM * * quaja = m 3.000 
ZOO REMO 2646462626 164636 3 IEEE 36361146 66 
210 FOR W=3 TO 8=:: CALL COLOR(W,5,2):z: NEXT W 
220 DISPLAY AT(5,10): "AIRFIGHT" :: DISPLAY AT(16,8): "EXTENDED BASIC" :: DISPLAY 
AT(18,8): "AND JOYSTICK 1" 
230 DISPLAY AT(21,6): "RELEASE ALPHA LOCK" 
240 DISPLAY AT(24,4): "PRESS ANY KEY TO BEGIN" 
250 CALL SOUND (250, 449,4) 
260 CALL KEY(0,k,S)s: IF S=0 THEN 260 
270 CALL CLEAR 
280 A=92 1: C=120 :: PO=1 os: D=0 :: FI=3 
290 CALL COLOR(13,5,2) 
3500 CALL CHAR(131, "00000000000000FF "):: CALL HCHAR(24,1,131,32) 
310 DISPLAY AT(24,1)SIZE(4):D :: DISPLAY AT(24,25)SIZE(3):FI 
320 CALL CHAR(92, "000000000021303F 1F07"&RPT$("0",22)&"FOA2FAFEFA42E000000000") 
330 CALL CHAR(36, "183D7F7F3D18040301000000000000001BECFCFEB93676BF1E18") 
340 CALL CHAR(60, "064F09000A800A000581034089216008110250034FC08882A089C208041002 
F1") 
350 CALL CHAR(40, "3C7EFFFFFFFF7E3C24242428142814"&RPT$("0",34)) 
360 CALL CHAR(64, "110250034FC08882A089C208041002F 1064F09000A800A0005810340892160 
08") 
370 CALL CHAR(124,RPT$("0",44)&"80E08000") 
380 CALL CHAR(68, "0F000000030C00000100000000000000FF 1F3F DF1F2F499111212101") 
390 CALL CHAR(72, "0000000000081D1D1F3B376EDE7D1D0200006060F0F0FBB8B87C7CFEFFFECO 
00") 
400 CALL CHAR(96, "0000000001030200011E1F0F00000000000008C49679FCF0F8D08000000000 
00") 
410 CALL CHAR(100, "0000000101010101000000000100000070207070F47CF47070707060E0C00 
000") 
420 CALL CHAR(104, "04081A260F07171B0C0600000000000000000080C080C0E0F 070307050000 
000") 
450 CALL CHAR(108, "00000E84BFFFBF8A1F0000000000000000000000C0F 0F8180800000000000 
000") 
440 CALL CHAR(136, "00040C0E1E1B3737377B7B7DFD3E1F01000000001018B8F CBCDCDEEFFAF04 
080") 
450 CALL CHAR(112, "0000000000010B1F0F 3F9E6B2310000000000000F 0F8D88000C0C08000000 
000") 
460 CALL CHAR(116, "00000307060E0E0E0E2F 3E2F0E0E040E00000080000000008080808080000 
000") 
470 CALL CHAR(120, "000000060E0C0E0F070301030100000000000000000065030DBEBE0F0E4581 
020") 
480 CALL CHAR(132, "000000003C7EFFFFFFFF7E3C18181818000000000008183C7E3C7EFF18181 


818") 


490 
500 
510 
520 
530 
940 
530 
560 
570 
580 
590 
600 
610 
620 


630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


MAGNIFY (4):: A=92 1: E=0 
SPRITE (£9,36,16,15,90,0,1) 
SPRITE(£13,36,16,40,1,0,2) 
SPRITE (£10,92, 10, 169, 12) 
SPRITE(£14,72,5,161,220) 
SPRITE (£15,68,11,1,225) 
SPRITE (£20,136,5,129,80) 
SPRITE (£8, 132,4, 161,180) 
KEY(1,K,S):: IF S=0 THEN 570 
MOTION(£10,0,10) 


CALL JOYST(1,X,Y) 
IF X=4 AND Y=0 THEN 1430 
CALL POSITION(£IO,N,M):: 


CALL COINC(£10,£12,15,B) 
IF B=-1 THEN 1500 


IF Y=-4 THEN GOSUB 1010 ELSE 670 
GOTO 600 

IF Y=4 THEN GOSUB 690 

GOTO 600 

IF A=120 THEN 700 ELSE 710 

A=88 


CALL PATTERN(£10,A+4) 

IF A=88 THEN 730 ELSE 750 

E=0 :3: F=10 :: C=1530 s: 030 
P=-2 :: G0T0 950 

IF A=92 THEN 760 ELSE 780 
E=-10 1: F=10 ss: C=120 :: P=-1 
GOTO 950 

IF A=96 THEN 790 ELSE 810 
E=-10 :: F=0 :: C=ll0 :: P=0 


F=0 


800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 


FOR T=8 TO 20 STEP è :: CALL MOTION(£T,0,-2):: NEXT T 


IF (N<=256 AND N>=179)OR(N>=170 AND N<=180)THEN 1490 


G0T0 950 

IF A=100 THEN 820 ELSE 840 
E=-10 s: F=-10 :: C=120 :: P=sl 
GOTO 950 

IF A=104 THEN 850 ELSE 870 
E=0 :: F=-10 :: C=130 :: P=2 
GOTO 950 


IF A=108 THEN 880 ELSE 900 
E=10 :: F=-10 :: C=140 :: P=l 
GOTO 950 

IF A=112 THEN 910 ELSE 930 
E=10 :: F=0 :: C=160 :: P=0 
GOTO 950 

IF A=116 THEN 940 ELSE 95 
E=10 :: F=10 s:: C=140 :: P=-1 
A=A+4 

CALL MOTIONt(£10,E,F) 

IF PO=1 THEN 980 ELSE 990 


980 RANDOMIZE :: CALL SPRITE(£12,40, INT((RND*7)+8),192, INT((RND*241)+10),-(INT(( 
RND*5)+1)), INT((RND*3)-1)):: PO=0 
990 FOR T=8 TO 20 STEP é :: CALL MOTION(£T,O,P):: NEXT T 


1000 RETURN 

1010 IF A=92 THEN 1020 ELSE 1050 
1020 A=124 

1030 CALL PATTERN(£10,A-4) 

1040 IF A=96 THEN 1050 ELSE 1070 
1050 E=0 :: F=10 ss: C=130 :: P=-2 
1060 GOTO 1270 

1070 IF A=100 THEN 1080 ELSE 1100 
1080 E=-10 :: F=10 s: C=120 :: P=-1 
1090 GOTO 1270 

1100 IF A=104 THEN 1110 ELSE 1130 
1110 E=-10 :: F=0 _:: C=ll0 :: P=0 
1120 GOTO 1270 

11350 IF A=108 THEN 1140 ELSE 1160 


1140 E=-10 cs: F=-10 :: C=120 :: P=l 
1150 GOTO 1270 
1160 IF A=112 THEN 1170 ELSE 1190 


1170 E=0 ss: F=-10 :: C=150 :: P=2 
1180 GOTO 1270 

1190 IF A=116 THEN 1200 ELSE 1220 
1200 E=10 :: F=-10 :: C=140 :: Pal 
1210 GOTO 1270 

1220 IF A=120 THEN 12350 ELSE 1250 
1250 E=10 ss F=0 :: C=150 :: P=0 
1240 GOT0 1270 


1 


250 
1260 
1270 


IF A=124 THEN 1260 ELSE 1270 
E=10 :: F=10 :: C=140 :: P=1 
A=A-4 


1280 
1290 
1300 
1310 
1320 
1330 
1340 
13550 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
15600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1580 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 


CALL MOTION(£10,E,F) 

FOR T=8 TO 20 STEP 6 :: CALL MOTION:£T,0,P):: NEXTT 
RETURN 

CALL MOTION(£10,0,0) 

CALL SOUND (10,341,1,137,1,-5,1) 

CALL SOUND (10,294,1,131,1,-7,1) 

FOR T=1 TO 3 :: CALL SOUND(11+T,110,1,112,1,-7,1):: NEXT T 
CALL FATTERN(£10,60) 

CALL SOUND (80, 110,1,-6,1) 

CALL SOUND (222,110,1,-7,1) 

CALL PATTERN(£10,64) 

CALL SOUND(11,111,1,-6,1) 

CALL DELSPRITE(ALL):: PO=1 

FI=FI-1 :: IF FI<O THEN 1750 :: DISPLAY AT(24,25)SIZE(3):FI 
GOTO 490 

CALL POSITION(£10,N,M):: CALL SPRITE(£11,124,10,N,M,10#*E,10%#F) 
FOR IN=1 TO 6 

CALL COINC(£11,£12,10,U):: IF U=-1 THEN 1640 

NEXT IN 

CALL COINC(£12,£11,10,U):: IF U=-1 THEN 1640 :: CALL DELSPRITE(£11) 
GOTO 620 

IF (N>=170 AND N<=180)THEN 1310 :: A=92_:: Y=4:: GOTO 650 
CALL MOTION(£10,0,0) 

CALL MOTION(£12,0,0) 

CALL SOUND(10,341,1,137,1,-6,1) 

CALL SOUND(10,294,1,131,1,-7,1) 

FOR T=1 TO 3 :: CALL SOUND(11+T,110,1,112,1,-7,1):: NEXTT 
CALL PATTERN(£10,60) 

CALL PATTERN(£12,60) 

CALL SOUND (80,110,1,-6,1) 

CALL SOUND (222, 110,1,-7,1) 

CALL PATTERN(£10,64) 

CALL PATTERN(£12,64) 

CALL SOUND(11,111,1,-6,1) 

CALL DELSPRITE(ALL):: PO=1 

FI=FI-1 :: IF FI<O THEN 1750 :: DISPLAY AT(24,25)SIZE(3):FI :: GO0T0 490 
CALL DELSPRITE(£11) 

CALL MOTION(£12,0,0) 

CALL FOSITION(£12,N,M) 

CALL SOUND(-33,222,1,-6,1) 

CALL PATTERN(£12,60) 

CALL SOUND(-111,110,1,-7,1) 

CALL PATTERN(£12,64) 

CALL SOUND (-222,110,1,-6,1) 

CALL DELSPRITE(£12) 

PO=1 :: D=D+10 

DISPLAY AT(24,1)SIZE(4):D :: GOTO 600 

CALL DELSPRITE(ALL):: CALL CLEAR :: CALL CHARSET 

FOR W=2 TO 8 :: CALL COLOR(W,5,2):: NEXT W 

DISPLAY AT(5,10): "GAME OVER" :: DISPLAY AT(12,4): "YOUR POINTS ARE "sD 
DISPLAY AT(24,1): "WANT TO PLAY AGAIN ? (Y/N)" 

FOR T=1 TO 100 

CALL SOUND(T,222+(3&T),1) 

CALL KEY(0,K,S)s: IF S<>O THEN 1840 

NEXT T 

GOTO 1790 

IF K<>78 AND K<>89 AND K<>110 AND K<>121 THEN 1820 

IF k=89 OR K=121 THEN 270 

CALL CLEAR 

END 


100 |! # IPPICA * 
GIONI 2711777717277 


120 ! * SCOMMETTIAMO * * SUI CAVALLI è» 

130 ! #* VERSIONE PER * * TI 99/4A * * EX. BASIC DI * 

140 ! #* PAOLO CORSINI* * PER IL * * FRANCOMPUTER * 
* CLUB VICENZA * {TTT CTTTTXT2 21 


150 IMAGE £. £££ESEFEEE  F£E£EE£ $ 
160 IMAGE £. ££££EFFFE DATO £E.£EL A 1 

170 IMAGE ££££££E£££ HA VINTO £££E££L£$ 

180 IMAGE ££EF££ELEF£ HA PERSO ££££££$ 

190 IMAGE £££££££E£A POSSIEDE ££££££$ 

200 CALL CLEAR :: FOR T1=104 TO 136 STEP 8 :: CALL CHARCTI, "04077EFC7C4444440407 
7EFC7C44828404077EFC7C442810"):: NEXT TI 

210 CALL CHAR(143, "000000FF2222",79, "0038444444444438"):: RANDOMIZE 1000 

220 OPTION BASE 1 :: CALL CHAR(96, "O000FFOOFF "&RPT$("0",12)&"FFOOFF"&RPT$("0",8) 
&"FFOOFF "&RPT$ ("0", 12) &"FFOOFF") 

230 CALL CHAR(48, "7EC3B9BSAD9DC37E3C6454741477417F7EC3BDFDC3BF81FF7EC3BDF 3FDBDC3 
7E1C3464D4B781F71C",52, "1C3464D4B781F71C") 

240 CALL CHAR(53, "FF81BFC3FDBDC37E7EC2BE83BDBDC37EFF81FD1B362C283897EC3BDC3BDBDC3 
7E",57,"7EC3BDBDC17D437E") 

250 D$="0000FFFF" :: CALL CHAR(46, "0000000000382838",127,D$,119,D$):: CALL COLOR 
(i) 

260 DIM N$(60):: CALL MAGNIFY(4) 

270 CALL CHAR(42,"FF818181818181FF") 

280 DATA 13,14,4,11,7,5,2,9 

290 RESTORE 280 :: FOR T=1 TO 8 :: READ COLCT):: NEXT T 

300 RANDOMIZE 100 

305 DISPLAY AT(15,1)ERASE ALL BEEP: "PREMI CUALUNQUE TASTO PER FERMARE LA PRESE 


NTAZIONE." :: FOR T=1 TO 600 :: NEXT T :: CALL CLEAR 
310 CALL SCREEN(16):: CALL COLOR(2,2,12,10,14,1,11,5,1,12,135,1,13,7,1) 
320 DISPLAY AT(7,1)BEEP:"*k* * * 
AE ERE RE RIE GRREGRIERE GEEREEERREER # *" 
330 DISPLAY AT(11,1):" * #* * * * * *Ù HIER RORREO  ®O # * EX 
REERORE REO RIERE E RA" 
340 DISPLAY AT(14,1):" * * * *" 


350 CALL HCHAR(4,3,42,28):: CALL HCHAR(18,3,42,28) 

360 GOSUB 1390 :: DISPLAY AT(24,20):"<ENTER>" 

370 CALL KEY(0,KK,SS):: IF KK<>13 THEN 370 

380 CALL CLEAR :: RESTORE 1340 :: CALL COLOR(2,2,1) 

390 FOR T=1 TO 60 :: READ N$(T):: NEXT T 

400 DISPLAY AT(1,3)BEEP: "BENVENUTI ALL’ IPFODROMO" 

410 CALL HCHAR(3,3, 143,28) 

420 DISPLAY AT(5,1): "AVETE LE TASCHE FIENE DI DOLLARI E DOVETE FUNTARE SU UNO 
DEI 5 CAVALLI CHE CORRE-RANNO. IL TABELLONE INDICA " 

430 DISPLAY AT(9,1):"LE QUOTAZIONI FER OGNI CA- VALLO. PER ESEMPIO UNO DI QUE 


STI E’ DATO 2.1 A 1, CIDCE” PUNTANDO 100 $ SU QUEL" 

440 DISPLAY AT(13,1): "CAVALLO IN CASO DI VITTORIA VI SARA” DATA LA VOSTRA PU 
NTATA PIU’ ALTRI 210 $" 

450 DISPLAY AT(20, 1): "QUINDI BUONA FORTUNA !!": 101" <CENTER> 


460 CALL KEY(0,KK,SS):: IF KK<>13 THEN 460 
470 DISPLAY AT(1,3)ERASE ALL BEEP: "BENVENUTI ALL’ IPPODROMO": : : : : : : "QUANTI 
SCOMMETTITORI (1/9) 1" 

480 CALL HCHAR(4,3, 143,28) 

490 ACCEPT AT(8,28)VALIDATE ("123456789") SIZE(-1)BEEP:W 

500 DISPLAY AT(8,1) 

S10 FOR T=1 TO W :: DISPLAY AT(20,1)BEEP: "SCOMMETTITORE”sT 

520 DISPLAY AT(23, 1): "NOME" :: ACCEPT AT(24,1)VALIDATE (UALPHA)SIZE(-10):B$(T) 

530 DISPLAY AT(23,1)BEEP: "QUANTI SOLDI POSSIEDI," :: ACCEPT AT(24,15)VALIDATE (DI 
GIT)SIZE(-4):P$ 

540 IF P$="0" OR P$="" THEN 530 ELSE B(T)=VAL (P$) 

550 DISPLAY AT(8+T,3):USING 150:T,B$(T),B(T):: DISPLAY AT(24,1):: NEXT T 

560 FOR T=18 TO 24 :: DISPLAY AT(T,1):: NEXT T 

570 CALL HCHAR(19,3,127,28):: CALL HCHAR(20,3,127,28):: FOR T=1 TO 300 :: NEXT T 


580 FOR T=1 TO 4 :: RANDOMIZE :: S=CINT(44*RND)+1)/5 :: R(T)=S :: NEXT Ts: SMM= 
0 

590 FOR T=1 TO 4 :: SMM=SMM+.9/(R(T)+1):: NEXT T :: IF SMM>=1 THEN 580 

600 QQ=(SMM-. 1) /(1-SMM) 

610 IF Q0<0 THEN QG=0 

620 R(5)=(INT(00*5+2.5))/5 

630 RND1=RND :: SMM=0 

640 FOR T=1 T0 5 

650 SMM=SMM+.9/(R(T)+1) 

660 IF SMM>=RND1 THEN 680 

670 NEXT Ts: T=5 

680 VNC=T 

690 DISPLAY AT(1,5)ERASE ALL BEEP: "QUOTE TOTALIZZATORE"” :: CALL HCHAR(2,6,127,21 
) 

700 FOR T=1 TOS 

710 RANDOMIZE :: NN=INT((RND*180)/3)+1 :: SW=0 

720 IF T=1 THEN 750 

730 FOR Y=1 TO T-1 :: IF N(Y)=NN THEN SU=1 

740 NEXT Y :: IF SW=1 THEN 710 

750 N(T)=NN 

760 DISPLAY AT(T#*2+2,1):USING 160:T,N$(N(T)),R(T):: NEXT T 

770 FL=1 

780 FOR T=1 TO W:: FOR K=14 TO 24 :: DISPLAY AT(K,1)ss NEXT K 

790 B(T)=INT(B(T)+.5) 

800 IF B(T)<=0 THEN CALL SOUND (200, 220,5):: DISPLAY AT(21,1):B$(T);" HAI FINITO 
I":"SOLDI, SPENDACCIONE" ELSE 820 

810 FOR TTT=1 TO 900 :: NEXT TTT :: GOTO 900 


820 FL=0 

830 DISPLAY AT(16,1)BEEP:B$(T)s" HAI"sB(T);"$" 

840 DISPLAY AT(19,1)BEEP: "QUANTO VUOI PUNTARE $" :: ACCEPT AT(19,23)VALIDATE (DIG 
IT):P$ 

850 IF P$="0" OR P$="" THEN 840 ELSE P(T)=VAL(P$):: IF P(T)<=B(T)THEN 870 

860 CALL SOUND (200, 220,0) :: DISPLAY AT(19,1): "NON SI FA CREDITO !'!!" :: FOR T2=1 


TO 500 :: NEXT T2 :: GOTO 840 
870 DISPLAY AT(20,1)BEEP:"SUL CAVALLO NUMERO... 1" :: ACCEPT AT(20,23)VALIDATE(" 
12345")SIZE(-N):Z(7T) 

880 DISPLAY AT(21,1):"HAI PUNTATO SU "sN$(N(Z(T))):: CALL HCHAR(22, 18,119, LEN(N$ 

(NCZ(T))))) 

890 DISPLAY AT(24,1)BEEP: "TUTTO OK '!! (S/N) S" :: ACCEPT AT(24,19)SIZE(-1)VALIDA 
TE("SN"):0K$ :: IF OK$="N" THEN 830 

900 NEXT T 

910 IF FL THEN CALL CLEAR :: DISPLAY AT(5,1)BEEP: "AVETE FINITO TUTTI I SOLDI 'SP 

IACENTI, MA CON IL TI 99 NON SI GIOCA A CREDITO” ELSE 930 
920 FOR TTi=1 TO 1500 :: NEXT TT1 :: CALL CLEAR :r STOP 
930 DIM TT(5,3) 

940 FOR K1=14 TO 24 :: DISPLAY AT(K1,1):: NEXT KI 

950 FOR Ki=1 TO 5 :: CALL HCHAR(13+2#K1,2,143,31):: NEXT KI 
960 FOR K1=t TO 5 :: CALL HCHAR(12+2*K1,1,96+8*K1):: NEXT Ki 
970 GOSUB 1420 

980 FOR K1=1 TO 5 

990 TT(K1,1)=20-6/R(K1) 

1000 TT(K1,2)=TT(K1,1) 

1010 TT(K1,3)=1 :: NEXT K1 

1020 CONT, PM, GM=0 

1030 CONT=CONT+2 

1040 FOR Ki=i TO 5 

1050 IF CONT<TT(K1,2)THEN 1140 

1060 TT(K1,1)=1+ABS(TT(K1,1)+(RND*3-1.5)-1) 

1070 TT(K1,2)=TT(K1,2)+TT(K1,1) 

1080 DISP=TT(K1,3)/2-INT(TT(K1,3)/2) 

1090 IF DISP=0 THEN CALL HCHAR(12+k1#*2,TT(K1,3),32):: CALL HCHAR(12+K1#2,TT(K1,3 

)+1,97+K1#8):: CALL SOUND(20, 660, 25,880, 25,-7,5) 

1100 IF DISP<>0 THEN CALL HCHAR(12+K1*2,TT(K1,3),32):: CALL HCHARC12+K1#2,TT(K1, 
3)+1,98+K1#8):: CALL SOUND(20,665,25,885,25,-7,5) 


1110 TT(K1,3)=TT(K1,3)+1 :: IF TT(K1,3)=32 THEN 1160 

1120 IF TT(K1,3)>PM AND GM<}K1 THEN CALL SOUND(500,600,0,700,0):: DISPLAY AT(24, 
1): "E" IN TESTA "5N$(N(K1))s: GM=K1 

1130 IF TT(K1,3)>PM THEN PM=TT(K1,3):: IF PM>=8 AND GM<>VNC THEN TT(VNC,1)=TT(K1 
,1)#(29-PM)/(31-TT(VNC,3)) 

1140 NEXT KI 

1150 GOTO 1030 

1160 CALL HCHAR(12+K1+2,32,96+K1#8):: DISPLAY AT(24,1):"HA VINTO "iN$(N(K1)) 
1170 T=K1 

1180 GOSUB 1420 :: GOSUB 1500 

1190 DISPLAY AT(24, 20) BEEP: "<ENTER>" 

1200 CALL KEY(0,KK,SS):: IF KK<>13 THEN 1200 

1210 DISPLAY AT(1,5)ERASE ALL BEEP: "VINCITE & PERDITE" :: CALL HCHAR(2,6,119,2 
1) 

1220 DISPLAY AT(3,1):"IL VINCITORE E” IL NUMERO" :: DISPLAY AT(4,1):USING 160:T, 
NS(NCT)),R(T) 

1230 FOR Y=1 TO W :: IF B(Y)<=0 THEN 1260 

1240 IF T=Z(Y)THEN L=T :: DISPLAY AT(7+Y, 1) :USING 170:B$(Y),P(Y)#R(L):: B(Y)=B(Y 
)+P(Y)#R(L):: GOTO 1260 

1250 DISPLAY AT(7+Y,1):USING 180:B$(Y),P(Y):: B(Y)=B(Y)-P(Y) 

1260 NEXT Y :: CALL HCHAR(20,3,127,28):: CALL HCHAR(21,3,127,28):: DISPLAY AT(24 
320) : "<ENTER>" 

1270 CALL KEY(0,KK,SS):: IF KK<>13 THEN 1270 

1280 DISPLAY AT(1,10)BEEP ERASE ALL: "SITUAZIONE" :: CALL HCHAR(2,11,119,12) 

1290 FOR K1=1 TO W :: DISPLAY AT(7+K1,1):USING 190:B$(K1),B(K1):: NEXT KI :: CAL 
L HCHAR(19,3,127,28):: CALL HCHAR(20,3,127,28) 

1300 DISPLAY AT(24,20):"<ENTER>" :: CALL KEY(0,KK,SS):: IF KK<%13 THEN 1300 

1310 DISPLAY AT(15,1)BEEP ERASE ALL: "UN ALTRA SCOMMESSA (S/N) S" :: ACCEPT AT( 
15,28) VALIDATE ("SN") SIZE(-1):S$ 

1320 IF ‘S$="S" THEN 580 

1330 DISPLAY AT(15,1)ERASE ALL BEEP: "SPERO CHE VI SIATE DIVERTITI...... 
#iorr” A PRESTO !!!" :: GOSUB 1420 :: STOP 

1340 DATA BELZEBU”,RE ARTU”,NERONE, DIOGENE, ARAGORN, TEROLDEGO, SOMBRERO, STALLONE, D 
IVINO, MAFIOSO, BO DEREK, OBROMANTO 

1350 DATA GANDALF, MEFISTO, RUBINO, HOBBIT, BUGIARDO, CALIGOLA, DIABLO, FRODO, MARAJA” ,P 
IPINO, PALINURO, AMAZZONE, TITINA, SONNINO 

1360 DATA BALILLA, MARILYN, BLONDIE, PIEDONE, THRILLER, PESETAS, TONTOLONE, BANCO, JUOST 
, IBRIDO, FANTASIA, UTOPIA, MADRIGALE 

1370 DATA BARBONE, BRIVIDO, STAR II, PICCOLO, CAMPIONE, KILLER, @. BERT, ZOCCOLO, ZOMBIE, 
PERFIDO, PUNGOLO, SARUMAN, SAURON 

1380 DATA BILBO, BOROMIR, GOLD RUN, GOLLUM, ALBATROS, SILVER, ASTERIX, MERCANTE 

1390 FOR T=1 TO 10 :: FOR K1=3 TO 15 :: CALL KEY(0,KK,SS):: IF SS=1 THEN 1410 
1400 CALL COLOR(2,2,K1):: NEXT K1 :: NEXT T :: CALL COLOR(2,2,12) 

1410 RETURN 

1420 HG2=700 :: HG=120 

1430 CALL SOUND (HG,392,0):: CALL SOUND(HG,523,0):: CALL SOUND(HG,659,0):: CALL S 
OUND (HG, 784, 0) 

1440 CALL SOUND(HG,784,0):: CALL SOUND(HG,784,0):: CALL SOUND(HG,659,0):: CALL S 
OUND (HG, 659,0) :: CALL SOUND (HG, 659,0) 

1450 CALL SOUND (HG, 523,0):: CALL SOUND(HG,659,0):: CALL SOUND(HG,523,0):: CALL S 
OUND (HG2, 392, 0) 

1460 CALL SOUND(1,40000,30) 

1470 CALL SOUND(HG2,392,0):: CALL SOUND(HG,523,0):: CALL SOUND(HG, 659,0):: CALL 
SOUND (H6, 784,0):: CALL SOUND(HG,784,0):: CALL SOUND(HG, 784,0) 

1480 CALL SOUND(HG,659,0):: CALL SOUND(HG,659,0):: CALL SOUND(HG,659,0):: CALL S 
OUND (HG, 392,0) 

1490 CALL SOUND(HG,392,0):: CALL SOUND(HG,392,0):: CALL SOUND(HG2,523,0):: RETUR 
N 


1500 QT=((T*2+2)#8)-19 :: CALL SPRITE(£1,96,1,0T,17,£2,96,1,0T,49,£3,96,1,0T,81) 
1510 FOR RE=1 TO 4 :: FOR DE=1 TO 8 :: CALL COLOR(£1,COL(DE)):: FOR YU=1 TO 30: 
: NEXT YU :: CALL COLOR(£2,COL(DE)):: FOR YU=1 TO 30 :: NEXT YU 

1520 CALL COLOR(£3,COL(DE)):: FOR YU=1 TO 30 :: NEXT YU s: NEXT DE :: NEXT RE 3: 
CALL DELSPRITE(ALL):: RETURN 


CARTUCCE G6G6 ANCORA DISPONIBILI 


RICHIEDETELE E SE ANCORA DISPONIBILI SPEDIREMO IN CONTRASSEGNO.NON INVIATE SOLDI 
e n e O I I e a DR I I I I I 0 RI I NI I RI MIN i RI I E e de SC e 
RUPMPIUIS: > ninni anale RE 000 
MUNCHMAN. . - - - - LIRE 40.000 
ALIEN ADDITION DIDATTICO. LIRE 25. 
DEMOLITION DIVISION DID.. LIRE 25. 
ALLIGATOR MIX DIDATTICO. . LIRE 25. 
METEOR MOLTIPLICATION DID. LIRE 25. 
DRAGON MIX DIDATTICO. ....- LIRE 25. 
CONNECT FOUR DIDATTICO. ... LIRE 25. 
THE ATTOCIEZ, sa dae a LIRE 40. 
NUMERAZIONE N.2 DIDATTICO. LIRE 25. 
ADDITION DIDATTICO. -. LIRE 25. 
EARLY READING. ....--.---.% LIRE 25. 
MATHE GAME VI DIDATTICO......LIRE 25. 
ADDIZIONI SOTTRAZIONI..--.....LIRE 25. 
PERSONAL REPORT GENERATOR ...L.IRE 50. 
PROFESSORE DI DATTILOGRAFIA..LIRE 40. 
MATH GAME II DIDATTICO... ....LIRE 25. 
NUOVI NUOVI NUOVI NUOVI NUOVI NUOVI .... 
dn SRI SII STI CORIO RISO GOOD INNO SOI SII SONNO SSN COBB RISI faoles (one VANI AMI! LR MISI Sai DIRT Inti (Soto SIONI MIRI lsasa URIIlI (SRnO: Coli Se SIDE Se SE IT o Senna 
DEFENDER ATARI SOFT. - « « « « «LIRE 78.000 
PACMAN ATARI SOFT... 4... LIRE 78.000 
DONKEY KONG ATARI SOFT ......LIRE 78.000 


2) ti VEN ATOM cm SA ATI APE i 


MATERIALE DISPONIBILE NEL. CLUB 


MANUALE IN ITALIANO; - COME PROGRAMMARE IN ASSEMBLER CON LA MINIMEMORY. ALLEGATA 
LA REFERENZE CARD DELL’EDITOR ASSEMBLER, IL LISTATO DISASSEMBLATORE E 5 LISTATI 
DI PROGRAMMI VARI. <cccsszarioniriz eni sione of 12.000 
MANUALE ITALIANO EXTENDED BASIC. 190 PAGINE DI TRADUZIONE PER CAPIRE QUESTO FA 
VOLOSO LINGUAGGIO NEI MINIMI PARTICOLARI... .......000 0000000000 LIRE . 
MANUALE TMS 9900, SCHEMI DEL MICROPROCESSORE E TUTTI GLI SCHEMI ELETTRICI DEL 
NOSTRO TI 99, COMPRESO IL BOX, L’ESPANSIONE, IL SINTETIZZATORE ..LIRE .....19.000 
VOLUME -TI 99 COMPUTER- DI TOWSEND IN INGLESE. MOLTO UTILE...... 12.000 
LEZIONI DI EXTENDED BASIC INTERATTIVO.7 PROGRAMMI PIU’ UN GIOCO SU 4 CASSETTE DA 
VEDERSI TUTTE PER IMPARARE A CAPIRE. MOLTI ESEMPI.......000000 0 «LIRE... 20.000 
LEZIONI DI BASIC. 8 PROGRAMMI INTERATTIVI SU 4 CASSETTE.........LIRE......20,000 
JOYSTICK TEXAS COPPIA... cocariibccriania na reni nioniieerreaie a leo a BIT00O 
LOGO S5S DELLA MONDADORI/LARICCIA CON VOLUME DEDICATO...........LIRE » 209.000 
ESPANSIONE 32 K IN SCHEDA PER IL BOX PERHIPHERAL....... 00000000 LIRE ...,229.000 
ESPANSIONE 32 K PER ALLACCIAMENTO ALLA CONSOLLE DIRETTAMENTE....LIRE.....229.000 
INTERFACCIA 232 PER COLLEGAMENTO ETERNO STAMPANTE PARALLELA....LIRE.....240.000 
INTERFACCIA 232 IN SCHEDA PER IL BOX PERIPHERAL........000% 240.000 
STAMPANTE MANNESMAN 80 COLONNE, 80 CARATTERI SECONDO, BIDIREZIONALE, FOGLIO SINGO 
LO O A TRATTORE, FORNITO DI CAVO PER LA RS232 TEXAS....... 780.000 
CAVETTI PER COLLEGAMENTO REGISTRATORE CONSOLLE... 

MONITOR PRINCE PRANDONI 12 POLLICI FOSFORI VERDI E AUDIO... 


PER LE RIVISTE TUTTO TI 99- SONO DISPONIBILI SOLO I NUMERI 3,4,5 INVIARE CON 
VAGLIA ANTICIPATO LIRE 10.000 PER RICEVERLE. NON SPEDIAMO CONTRASSEGNO (COSTA ') 
CHI DESIDERA L'ELENCO GENERALE DEI PROGRAMMI ( 9 FOGLI ) INVIARE LIRE 1500 
OGNI PROGRAMMA SU CASSETTA SINGOLA COSTA LIRE 5000. NON ORDINATE 1 SOLA CASSETTA 
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